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