In kpflugshaupt/R-Scripts: Some Personal Scripts

library(mmpf)
X <- replicate(3, rnorm(100))
data <- data.frame(X)
data$y <- 2*data$X1 - 5 * data$X2 + rnorm(100)/2

fit <- lm(y ~ -1 + X1 + X2 + X3, data)
summary(fit)
plot(fit)

permutationImportance(data, "X1", "y", fit)
permutationImportance(data, "X2", "y", fit)
permutationImportance(data, "X3", "y", fit)

kpflugshaupt/R-Scripts documentation built on May 14, 2019, 7:20 p.m.