## 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)
# ## End(Not run)
Run the code above in your browser using DataLab