parms <- 1:5
cov <- matrix(data=1, nrow=5, ncol=5)
getSummary(list(parms=parms, cov=cov))
# Compare to summary()
set.seed(123)
n <- 100
y <- rbinom(n, 1, 0.5)
x <- cbind(runif(n), rbinom(n, 1, 0.5))
fit <- glm(y ~ x, family=binomial())
sum <- summary(fit)
sum$coefficients
getSummary(fit)
Run the code above in your browser using DataLab