## Not run:
#
# DATA <-build2popData(
# n = 15,
# m = 20,
# p = 500,
# muX = rep(0,500),
# muY = rep(0,500),
# commoncov = FALSE,
# VarScaleY = 1,
# 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))
# )
#
# GCT.sim(DATA,r=20,smoother="parzen")
#
# ## End(Not run)
Run the code above in your browser using DataLab