View source: R/mcpot-simmcpot.R
| simmcpot | R Documentation |
Simulate a synthetic Markov chain from a fitted 'mcpot' object.
simmcpot(object, plot = TRUE, ...)
object |
An object of class |
plot |
Logical. If |
... |
Other optional arguments to be passed to the
|
The simulated Markov chain is computed as follows:
Simulate a Markov chain prob with uniform margins on
(0,1) and with the fixed extreme value dependence given by
object;
For all prob such as prob \leq 1 - pat, set mc = NA (where pat is given by
object$pat);
For all prob such as prob \geq 1 - pat, set prob2 = \frac{prob - 1 + pat}{pat}. Thus, prob2 are uniformly distributed on
(0,1);
For all prob2, set mc = qgpd(prob2, thresh,
scale, shape), where thresh, scale, shape are given by the
object$threshold, object$param["scale"] and
object$param["shape"] respectively.
A Markov chain which has the same features as the fitted object. If
plot = TRUE, the Markov chain is plotted.
Mathieu Ribatet
fitmcgpd, simmc
data(ardieres)
flows <- ardieres[,"obs"]
Mclog <- fitmcgpd(flows, 5)
par(mfrow = c(1,2))
idx <- which(flows <= 5)
flows[idx] <- NA
plot(flows, main = "Ardieres Data")
flowsSynth <- simmcpot(Mclog, main = "Simulated Data")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.