RFoptions(seed=0)
model <- RMball()
x <- if (interactive()) seq(0, 1000, 0.02) else seq(0, 100, 10)
z <- RFsimulate(RPsmith(model, xi=0), x)
plot(z)
hist(z@data$variable1, 50, freq=FALSE)
curve(exp(-x) * exp(-exp(-x)), from=-3, to=8, add=TRUE)
if (!.C("isAuthor", a=integer(1))$a) {
}
## for some more sophisticated models see 'maxstableAdvanced'
RFoptions(seed=NA)
Run the code above in your browser using DataLab