# NOT RUN {
##-----------------------------------------------------------------
## Multivariate Longitudinal Response
##-----------------------------------------------------------------
# Simulate data involves 3 response and 4 covariates
dta <- simLong(n = 100, N = 5, rho =.80, model = 1, 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)
# Plot training error
plotBoostMLR(boost.grow$Error_Rate,xlab = "m",ylab = "Training Error")
# }
Run the code above in your browser using DataLab