## Not run:
# # a linear regression model
# model1 <- lm(Fertility ~ Agriculture + Education + Catholic , data = swiss)
# DynNom(model1, swiss)
#
# model2 <- lm(uptake ~ Plant + conc + Plant * conc, data = CO2)
# DynNom(model2, CO2)
# ## End(Not run)
if (interactive()) {
data1 <- data.frame(state.x77)
fit1 <- lm(formula = Life.Exp ~ ., data = data1)
DynNom(fit1, data1)
}
Run the code above in your browser using DataLab