source("c:/mijn documenten/projecten/R/summarizeModels.R")
library(car) #for datasets

data(Prestige)
attach(Prestige)

contrasts(type) <- 'contr.sum'
bla1 <- lm(prestige~women + education + income + type)
bla2 <- lm(prestige~women + education + type)
bla3 <- lm(prestige~education +type)

models <- list(bla1,bla2,bla3)
modelNames <- c("Any","names you","like")

sum.mods <-summarizeModels.lm(models, modelNames, stat=c("t","p"), long=TRUE)


data(Mroz)
attach(Mroz)


bla1 <- glm(lfp ~ k5 + k618 + age + wc + hc + lwg + inc, family=binomial)
bla2 <- glm(lfp ~ k5 + k618 + age + wc + hc + lwg , family=binomial)
bla3 <- glm(lfp ~ k5 + k618 + age + wc + hc, family=binomial)

blub <- list(bla1,bla2,bla3)
blub.blub <- c("complete","no inc","no inc lwg")



summarizeModels(blub,blub.blub, round=3, long=TRUE)
summarizeModels.glm(blub, round=3, stat="se", fit=c("BIC", "AIC"))