if (FALSE) { # rlang::is_installed("kernlab")
library(kernlab)
test <- gausspr(Species ~ ., data = iris, var = 2)
out <- butcher(test, verbose = TRUE)
# Example with simulated regression data
x <- seq(-20, 20, 0.1)
y <- sin(x)/x + rnorm(401, sd = 0.03)
test2 <- gausspr(x, y)
out <- butcher(test2, verbose = TRUE)
}
Run the code above in your browser using DataLab