sim <- generateRFFast(
n = 50,
spacepoints = 3,
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))
)
checkRF(sim,
lags = 10,
nfields = 49)
Run the code above in your browser using DataLab