Fig 2. NA存在条件下直接计算p.value

t.test(as.numeric(test)~group)$p.value,可以直接提取p-value;

t.test(as.numeric(test)~group)$estimate[1], 可以直接提取相应的mean值;

3. 去掉NA值计算p.value

mm<-test[c(5:20,24:40,44:60)]

group1<-factor(rep(c("M","C"),c(33,17)))

t.test(as.numeric(mm)~group1)