## Not run:
# DATA <-build2popData(
# n = 15,
# m = 20,
# p = 500,
# muX = rep(0,500),
# muY = rep(0,500),
# commoncov = FALSE,
# VarscaleY = 2,
# dep = "ARMA",
# ARMAparms = list(coefs=list(ma=c(.2,.3) , ar=c(.4,-.1))),
# LRparm = .75,
# S = 25,
# innov = function(n,...) rnorm(n,0,1),
# heteroscedastic=TRUE,
# het.diag = diag(.1 + rexp(500,1/2))
# )
# ## End(Not run)
Run the code above in your browser using DataLab