## rsght -
set.seed(1953)
r = rsght(5000, beta = 0.1, delta = 1, mu = 0, nu = 10)
plot(r, type = "l", col = "steelblue",
main = "gh: zeta=1 rho=0.5 lambda=1")
## dsght -
# Plot empirical density and compare with true density:
hist(r, n = 50, probability = TRUE, border = "white", col = "steelblue")
x = seq(-5, 5, length = 501)
lines(x, dsght(x, beta = 0.1, delta = 1, mu = 0, nu = 10))
## psght -
# Plot df and compare with true df:
plot(sort(r), (1:5000/5000), main = "Probability", col = "steelblue")
lines(x, psght(x, beta = 0.1, delta = 1, mu = 0, nu = 10))
## qsght -
# Compute Quantiles:
round(qsght(psght(seq(-5, 5, 1), beta = 0.1, delta = 1, mu = 0, nu =10),
beta = 0.1, delta = 1, mu = 0, nu = 10), 4)
Run the code above in your browser using DataLab