data("StockIndices")
GASSpec = UniGASSpec(Dist = "std", ScalingType = "Identity",
GASPar = list(location = FALSE, scale = TRUE,
shape = FALSE))
FTSEMIB = StockIndices[, "FTSEMIB"]
Fit = UniGASFit(GASSpec, FTSEMIB)
U = pit(Fit)
Test = PIT_test(U, G = 20, alpha = 0.05, plot = TRUE)
Run the code above in your browser using DataLab