# NOT RUN {
sim1 <- multivar_sim(
k = 2, # individuals
d = 3, # number of variables
n = 20, # number of timepoints
prop_fill_com = 0.1, # proportion of paths common
prop_fill_ind = 0.1, # proportion of paths unique
lb = 0.1, # lower bound on coefficient magnitude
ub = 0.9, # upper bound on coefficient magnitude
sigma = diag(1,3) # noise
)
model1 <- constructModel(data = sim1$data, weightest = "ols")
fit1 <- cv.multivar(model1)
plot_results(fit1, plot_type = "common")
# }
Run the code above in your browser using DataLab