## sged -
par(mfrow = c(2, 2), cex = 0.75)
set.seed(1953)
r = rsged(n = 1000, mean = 1, sd = 0.5, xi = 1.5)
plot(r, type = "l", main = "sged: xi = 1.5")
# Plot empirical density and compare with true density:
hist(r, n = 25, probability = TRUE, border = "white", col = "steelblue")
x = seq(-1, 5, 0.1)
lines(x, dsged(x = x, mean = 1, sd = 0.5, xi = 1.5))
# Plot df and compare with true df:
plot(sort(r), (1:1000/1000), main = "Probability", col = "steelblue")
lines(x, psged(x, mean = 1, sd = 0.5, xi = 1.5))
# Compute quantiles:
qsged(psged(q = -1:5, mean = 1, sd = 0.5, xi = 1.5),
mean = 1, sd = 0.5, xi = 1.5)
## sgedFit -
sgedFit(rsged(1000, mean = -1, sd = 0.5, nu = 3, xi = 3/2),
print.level = 2)
Run the code above in your browser using DataLab