Я сейчас использую пакет extRemes
для построения нестационарной модели GP, и мне трудно извлечь параметры.
Параметр нестационарной шкалы
library(extRemes)
data(Fort)
fit1 <- fevd(Prec, Fort, threshold=0.395,
scale.fun=~sin(2 * pi * (year - 1900)/365.25) + cos(2 * pi * (year - 1900)/365.25),
type="GP", use.phi=TRUE, verbose=TRUE)
Согласно справочной странице fevd
, log(scale(y)) = phi(y) = phi0 + phi1 * g1(y) + phi2 * g2(y) + ...
Теперь у нас есть phi0
, phi1
и phi2
из результатов, но каковы g1(y)
и g2(y)
в вышеуказанной функции?
Кроме того, как мы можем понять scale.fun
в fit1
? Что означает scale.fun=~sin(2 * pi * (year - 1900)/365.25) + cos(2 * pi * (year - 1900)/365.25)
? Например, если мы используем scale.fun=~Fort$year
, мы предполагаем, что year
оказывает линейное влияние на параметр scale
.
Нестационарный порог
fit2 <- fevd(Prec, Fort, threshold=0.475, threshold.fun=~I(-0.15 * cos(2 * pi * month / 12)),
type="GP", verbose=TRUE)
Начиная с fit2
, как мы можем вычислить изменяющиеся значения threshold
на основе threshold.fun = ~I(-0.15 * cos(2 * pi * month/12))
? Спасибо за любую помощь.