## Not run:
# # load data
# 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))
# ### summary fit1
# summary(fit1)
# ## End(Not run)
Run the code above in your browser using DataLab