# NOT RUN {
x <- cbind(rgev(100, shape = .2), rgev(100, shape = .2))
summary(PWMs(x[, 1]))
summary(PWMs(x[, 1]), distr = "gev")
summary(PWMs(x[, 1]), distr = "gev", select = 1:2)
summary(PWMs(x))
summary(PWMs(x), select = 1:2)
# }
# NOT RUN {
summary(as.PWMs(c(15, 4, .5)))
# }
Run the code above in your browser using DataLab