hw2

library(caret) names(getModelInfo()) set.seed(123) x <- matrix(rnorm(50 * 5), ncol = 5) y <- factor(rep(c(“A”, “B”), 25)) jpeg(“feature_pairs.jpg”) featurePlot(x = x, y = y, plot = “pairs”) dev.off() jpeg(“feature_box.jpg”) featurePlot(x = x, y = y, plot = “box”) dev.off()