How to change the color of the score plot in PLS analysis in the ropls package?
library(ropls)
data(sacurine)
sacurine.pls <- opls(x = sacurine$dataMatrix, y = sacurine$sampleMetadata[, 'bmi'], orthoI = 0)
plot(sacurine.pls,typeVc = "x-score",parPaletteVc = c("red","white","blue"))