library(CAMERA)
#Multiple sample
library(faahKO)
xs.grp <- group(faahko)
#create xsAnnotate object
xsa <- xsAnnotate(xs.grp)
#generate pseudospectra
xsa.group <- groupFWHM(xsa)
#calculate correlation
tmp <- getAllPeakEICs(xsa.group,index=rep(1,nrow(xsa.group@groupInfo)))
#extract EIC matrix
EIC.matrix <- tmp$EIC;
Run the code above in your browser using DataLab