# NOT RUN {
sim <- 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(3) # noise
)
plot_sim(sim, plot_type = "common")
model <- constructModel(data = sim$data, weightest = "ols")
# }
Run the code above in your browser using DataLab