극값 분석 (리턴 레벨 계산)을 수행하기 위해 사용하고있는 바람 데이터가 있습니다. 저는 R 패키지에 'evd', 'extRemes'및 'ismev'패키지를 사용하고 있습니다.와 이블 분포에 대한 신뢰 구간
나는 내가 극단를 사용하여 RL의 취득 및 신뢰 구간 수, 일정 기간의 T. GEV와 Gumbel와 사례를 들어
의 리턴 레벨 (RL)을 추정하기 위해, GEV, Gumbel와와 이블 분포를 피팅하고있어 :: return.level() 함수.
일부 코드 :
require(ismev)
require(MASS)
data(wind)
x = wind[, 2]
rperiod = 10
fit <- fitdistr(x, 'weibull')
s <- fit$estimate['shape']
b <- fit$estimate['scale']
rlevel <- qweibull(1 - 1/rperiod, shape = s, scale = b)
## CI around rlevel
## ci.rlevel = ??
그러나 이블 경우에
, 나는 CI의를 생성하는 데 도움이 필요합니다.
수행 한 작업에 대한 간략한 설명을 제공했지만이 포럼은 코딩 포럼이므로 데이터와 코드를 게시해야합니다. –
코드가 추가되었습니다. – Fernando