data(beer)
conc=beer[,1]
sp=beer[,2:ncol(beer)]
names(sp)=convert.names.wl(1100,2250,2)
conc=unlist(conc)
mywpls=cv.wpls(sp, conc,mode='wpls', windows = 5)
global.rmse(mywpls,col.cal='navy',
col.cv='red',
col.strip.background='orange',
xlab='Component',
ylab='RMSE')
Run the code above in your browser using DataLab