# \donttest{
# data
Y <- subset(ifit, id == 1)[,-1]
# fit model with alias (var_estimate also works)
fit <- var_estimate(Y, progress = FALSE)
# fitted values
pred <- predict(fit, progress = FALSE)
# predicted values (1st outcome)
pred[,,1]
# }
Run the code above in your browser using DataLab