# NOT RUN {
# For demonstration only. We are artificially imposing a grid structure
# on data that is not actually spatial data
library(MASS)
data(birthwt)
x <- rep(1:14, 14)
y <- as.integer(gl(14, 14))
coords <- cbind(x[-(190:196)], y[-(190:196)])
# }
# NOT RUN {
formula <- formula(low ~ age + lwt + race + smoke + ftv + bwt)
mgee <- GEE(formula,
family = "gaussian",
data = birthwt,
coord = coords,
corstr = "fixed",
scale.fix = TRUE)
ss <- step.spind(mgee, birthwt)
best.mgee <- GEE(ss$model,
family = "gaussian",
data = birthwt,
coord = coords,
corstr = "fixed",
scale.fix = TRUE)
summary(best.mgee, printAutoCorPars = FALSE)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab