library(CoSMoS)
ts <- generateTS(margdist = "ggamma",
margarg = list(scale = 1, shape1 = .8, shape2 = .8),
acsvalue = acs(id = "paretoII", t = 0:30,
scale = 1, shape = .75),
n = 1000, p = 30, TSn = 2)
plot(ts)
Run the code above in your browser using DataLab