# NOT RUN {
data(DATA)
### perform parameter tuning with a 3-fold cross-validaiton
RES2 <- tunePcaLda(data=DATA$spec
,label=DATA$labels
,batch=DATA$batch
,nPC=2:4
,cv=c('CV', 'BV')[1]
,nPart=3
,optMerit=c('Accuracy', 'Sensitivity')[2]
,center=TRUE
,scale=FALSE)
# }
Run the code above in your browser using DataLab