library(CoSMoS)
## Fit once
x <- generateTS(margdist = "burrXII",
margarg = list(scale = 1,
shape1 = .75,
shape2 = .25),
acsvalue = acs(id = "weibull",
t = 0:30,
scale = 10,
shape = .75),
n = 1000, p = 30, p0 = .5, TSn = 3)
## Generate more realisations with the same parameters
r <- regenerateTS(x)
plot(r)
Run the code above in your browser using DataLab