source("sim.Jtestpanel.R") set.seed(12345) run <- sim.mpVSp(samples= 2000, nobs = 49, time = 4, nvar = 2, AB = 5, nn = 10, type = "rook", beta = 0.5) set.seed(12345) run <- sim.mpVSp(samples= 2000, nobs = 49, time = 4, nvar = 2, AB = 5, nn = 10, type = "rook", beta = 1) set.seed(12345) run <- sim.mpVSp(samples= 1, nobs = 100, time = 4, nvar = 2, AB = 5, nn = 10, type = "rook", beta = 0.5) set.seed(12345) run <- sim.mpVSp(samples= 2000, nobs = 100, time = 4, nvar = 2, AB = 5, nn = 10, type = "rook", beta = 1 )