library(CoSMoS)
## generate TS
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 the TS
plot(ts)
Run the code above in your browser using DataLab