# NOT RUN {
##-----------------------------------------------------------------
## Univariate Longitudinal Response
##-----------------------------------------------------------------
# Simulate data involves 1 response and 4 covariates
dta <- simLong(n = 100, N = 5, rho =.80, model = 2, q_x = 0,
q_y = 0,type = "corCompSym")$dtaL
# Boosting call: Raw values of covariates, B-spline for time,
# no shrinkage, no estimate of rho and phi
boost.grow <- BoostMLR(x = dta$features, tm = dta$time, id = dta$id,
y = dta$y, M = 100, VarFlag = FALSE)
# Update boosting object for the additional 100 iteration
boost.grow <- updateBoostMLR(Object = boost.grow, M_Add = 100,Verbose = TRUE)
# Update boosting object for the additional 50 iteration
boost.grow <- updateBoostMLR(Object = boost.grow, M_Add = 50,Verbose = TRUE)
# }
Run the code above in your browser using DataLab