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