Displaying 1 result from an estimated 1 matches for "mean_01".
Did you mean:
mean1
2013 Jun 04
0
choose the lines2
...??????????????????????????? x4[!any(duplicated(x4$number))]
??????????????????????????????????????? }
??????????????????????????????????????? ))
??????????????????????????????????? })
?? lst6<-lst5[lapply(lst5,nrow)!=0]
?? names(lst6)<- unlist(lapply(lst6,function(x) unique(x$patient_id)))
?? Mean_01<-do.call(rbind,lapply(lst6,function(x) cbind(Mean_Middle0=mean(x[seq(nrow(x))%%3==2,"basdai_d"]),Mean_1=mean(x[seq(nrow(x))%%3==0,"basdai_d"]))))
rownames(Mean_01)<- names(lst6)
? ?? lst7<-list(lst6,Mean_01)
?? lst7
?? #lapply(lst7,head,2)??
?? }?????????????????
fu...