if(require(ismev)){
## from ismev
data(portpirie)
data(rain)
detach(package:ismev)
ppfit <- ismev::gev.fit(portpirie[,2])
gev.diag(ppfit)
##
(mlE <- MLEstimator(portpirie[,2], GEVFamilyMuUnknown(withPos=FALSE)))
gev.diag(mlE)
# \donttest{
## not tested on CRAN because it takes some time...
gev.prof(mlE, m = 10, 4.1, 5)
gev.profxi(mlE, -0.3, 0.3)
rnfit <- ismev::gpd.fit(rain,10)
gpd.diag(rnfit)
##
mlE2 <- MLEstimator(rain[rain>10], GParetoFamily(loc=10))
gpd.diag(mlE2)
gpd.prof(mlE2, m = 10, 55, 77)
gpd.profxi(mlE2, -0.02, 0.02)
# }
}
Run the code above in your browser using DataLab