powered by
strip_model(model_object, model_class = NULL)
example_data <- as.data.frame(cbind(gl(3,50),rnorm(150)));names(example_data) <- c("x","y") example_fit <- lm(y~x,data=example_data) strip_model(example_fit,"lm")
Run the code above in your browser using DataLab