# NOT RUN {
# }
# NOT RUN {
P <- vec2par(c(123,340,0.4,0.654),type='gld')
cdfgld(300,P, paracheck=FALSE)
par <- vec2par(c(0,-7.901925e+05, 6.871662e+01, -3.749302e-01), type="gld")
supdist(par)
# }
Run the code above in your browser using DataLab