3-poissonPLS.R

# PCA-DA
mod2 <- train(class ~ ., data = arcene,
              method = "lda",
              metric = "Accuracy",
              trControl = control,
              preProc = c("zv","center","scale","pca"))

# RF
mod3 <- train(class ~ ., data = arcene,
              method = "ranger",
              metric = "Accuracy",
              trControl = control,
              tuneLength = 6,
              preProc = c("zv","center","scale"))