# NOT RUN {
# load data
# }
# NOT RUN {
data(data_sim)
#Linear Gaussian Model
fit1 <- CPMCGLM(formula= Weight~Age+as.factor(Sport)+Desease+Height,
family="gaussian",link="identity",data=data_sim,varcod="Age",N=1000,
boxcox=c(0,1,2,3))
### print fit1
fit1
# }
Run the code above in your browser using DataLab