data(iris)
fit <- lm(Sepal.Length ~ Petal.Width + Species, data = iris)
(tab <- regressionTable(fit))
#Must have the robust package instaled
#fit.rob <- lmrob(Sepal.Length ~ Petal.Width + Species, data = iris)
#regressionTable(fit.rob)
#saveTable(tab, "regressionTable.rtf")
#Logisitc Regression currently works not correctly.
# data(anorexia, package="MASS")
# anorexia.logistic <- anorexia[anorexia$Treat != "FT",]
# fit <- glm(Treat ~ Postwt, family = binomial(), data = anorexia.logistic)
#
# regressionTable(fit)
Run the code above in your browser using DataLab