Displaying 1 result from an estimated 1 matches for "mean_middle0".
2013 Jun 04
0
choose the lines2
...))]
??????????????????????????????????????? }
??????????????????????????????????????? ))
??????????????????????????????????? })
?? 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)??
?? }?????????????????
fun2(dat.bru)
head(fun2(dat.bru)[[1]],3)
#$`2`
#??? X patient_i...