# NOT RUN {
sobj <- bisimrel(
n = 100,
p = 10,
q = c(5, 5, 3),
rho = c(0.8, 0.4),
relpos = list(c(1, 2, 3), c(2, 3, 4)),
gamma = 0.7,
R2 = c(0.8, 0.8)
)
# Regression Coefficients from this simulation
sobj$beta
# }
Run the code above in your browser using DataLab