Extract data of model
model.data(fit) model.y(fit) model.x(fit)
fit
fitted results
dataframe in the model
fit <- lm(mpg~vs+am+poly(qsec,2),data=mtcars) head(model.data(fit)) model.y(fit) model.x(fit)