Displaying 1 result from an estimated 1 matches for "auc_control".
2012 Mar 19
2
by output into data frame
...i in 1:(nrow(sub_df)-1) ) {
print(c(i,i+1))
#print(c(values[i],values[i+1]))
pair_area<-(sub_df[i,]+sub_df[i+1,])*timedif[i]/2
auc<-auc+pair_area
}
auc
}
auc_stress<-by(lab.samples.stress[c('cortisol','amylase')], lab.samples.stress$subid, auc_ground, simplify=T)
auc_control<-by(lab.samples.control[c('cortisol','amylase')], lab.samples.control$subid, auc_ground, simplify=T)
Thanks for your help!
P.S. sorry if this question has been answered before, it is nearly impossible to get useful google results on search terms like "by"... too com...