gep <- list(para=c(2, 1.5, 3), type="gep")
quagep(0.5, gep)
if (FALSE) {
pdf("gep.pdf")
F <- nonexceeds(f01=TRUE)
K <- seq(-1,2,by=.2); H <- seq(-1,2,by=.2)
K <- 10^(K); H <- 10^(H)
for(i in 1:length(K)) {
for(j in 1:length(H)) {
gep <- vec2par(c(2,K[i],H[j]), type="gep")
message("(K,H): ",K[i]," ",H[j])
plot(F, quagep(F, gep), lty=i, col=j, type="l", ylim=c(0,4),
xlab="NONEXCEEDANCE PROBABILITY", ylab="X(F)")
mtext(paste("(K,H): ",K[i]," ",H[j]))
}
}
dev.off()
}
Run the code above in your browser using DataLab