Description References Examples
Here, the code of the paper on ‘Models for stationary max-stable random fields’ is given.
Schlather, M. (2002) Models for stationary max-stable random fields. Extremes 5, 33-44.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | RFoptions(seed=0, xi=1)
## seed = 0 : *ANY* simulation will have the random seed 0; set
## RFoptions(seed=NA) to make them all random again
## xi = 0.5: Frechet margins with alpha=2
## Due to change in the handling the seeds here are different from the
## seeds in the paper.
x <- seq(0, 10, length=128)
# Fig. 1-4
## Not run: \dontshow{plot(RFsimulate(RPsmith(RMgauss(s=1.5)), x, x)) # < 1 sec
plot(RFsimulate(RPsmith(RMball(s=RRspheric(2, 3,
R=3.3))), x, x)) # 30 sec
plot(RFsimulate(RPschlather(RMexp()), x, x)) # 1 sec
plot(RFsimulate(RPschlather(RMgauss()), x, x)) # 17 sec
}
## End(Not run)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.