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
correlationMatrix <- calcCaS(xsa.group)
Run the code above in your browser using DataLab