# NOT RUN {
sim.obj <- simrel(n = 100, p = 16, q = c(3, 4, 5),
relpos = list(c(1, 2), c(3, 4), c(5, 7)), m = 5,
ypos = list(c(1, 4), 2, c(3, 5)), type = "multivariate",
R2 = c(0.8, 0.7, 0.9), gamma = 0.8)
ggsimrelplot(sim.obj, layout = matrix(c(2, 1, 3, 1), 2))
ggsimrelplot(sim.obj, which = c(1, 2), use_population = TRUE)
ggsimrelplot(sim.obj, which = c(1, 2), use_population = FALSE)
ggsimrelplot(sim.obj, which = c(1, 3), layout = matrix(c(1, 2), 1))
# }
Run the code above in your browser using DataLab