coord <- cbind(runif(4)*30, runif(4)*30)
sim <- generateMTSFast(
n = 50,
spacepoints = coord,
p0 = 0.7,
margdist ='paretoII',
margarg = list(scale = 1,
shape = .3),
stcsarg = list(scfid = "weibull",
tcfid = "weibull",
scfarg = list(scale = 20,
shape = 0.7),
tcfarg = list(scale = 1.1,
shape = 0.8))
)
Run the code above in your browser using DataLab