if (FALSE) {
# show the information of all the supported distributions
library("GAS")
data("cpichg")
GASSpec = UniGASSpec(Dist = "std", ScalingType = "Identity",
GASPar = list(location = TRUE, scale = TRUE,
shape = FALSE))
Fit = UniGASFit(GASSpec, cpichg)
Bands = ConfidenceBands(Fit)
}
Run the code above in your browser using DataLab