if (FALSE) {
data( "SantaAna" )
Z <- SantaAna[,3:4]
mfit1 <- fevd( x = temp, data = Z, threshold = 36.75, type = "GP" )
mfit2 <- fevd( x = windspeeds, data = Z, threshold = 7.09875, type = "GP" )
fit2 <- fbvpot( x = Z, threshold = apply( Z, 2, quantile, probs = 0.95 ),
tform = "tf", fit = list( mfit1, mfit2 ) )
# Note, using B = 50 below for R check speed, but probably need
# a higher number.
fit2booted <- bvpotbooter( fit2, B = 50, rsize = 62, block.length = 7 )
summary( fit2booted )
ci( fit2booted, type = "perc" )
}
Run the code above in your browser using DataLab