## Univariate
x <- rstable(800, 1.7, 0, 1, 0)
fitstable(x)
## Multivariate
ALPHA <- c(1.3,1.6)
BETA <- c(0,0.2)
GAMMA <-c(1,1)
DELTA <-c(0,0.2)
x <- rstable(500, ALPHA, BETA, GAMMA, DELTA)
fitstable(x)
Run the code above in your browser using DataLab