# NOT RUN {
uvdata <- rgev(100, loc = 0.13, scale = 1.1, shape = 0.2)
M1 <- fgev(uvdata)
# }
# NOT RUN {
M1P <- profile(M1)
# }
# NOT RUN {
par(mfrow = c(2,2))
# }
# NOT RUN {
cint <- plot(M1P, ci = c(0.95, 0.99))
# }
# NOT RUN {
cint
# }
Run the code above in your browser using DataLab