# Daily Closing Prices of Major European Stock Indices, 1991-1998
data("EuStockMarkets", package = "datasets")
# use percentile log returns
x <- apply(EuStockMarkets, 2, function(x) diff(log(x)))
# Fitted shape parameters
glshapeplot(x)
# without the line conditions of existence of moments
glshapeplot(x, method = "quant", moments = NULL)
# only the conditions of existence of the first 4 moments
glshapeplot(NULL, moments = 1:4)
Run the code above in your browser using DataLab