# NOT RUN {
#this is for ExPosition's iris data
data(ep.iris)
data<-ep.iris$data
design<-ep.iris$design
gpca.iris.res <- epGPCA.inference.battery(data,DESIGN=design,make_design_nominal=FALSE)
# }
Run the code above in your browser using DataLab