## SOURCE("fBasics.13D-DistributionFits")
## tFit -
xmpBasics("Start: MLE Fit to Student's t Density > ")
par(mfrow = c(2,2), cex = 0.7, err = -1)
options(warn = -1)
# Simulated random variates t(4):
set.seed(1953)
s = rt(n = 1000, df = 4)
# Note, this may take some time.
# Starting vector:
df.startvalue = 2*var(s)/(var(s)-1)
tFit(s, df.startvalue, doplot = TRUE)
## ghFit -
## hypFit -
xmpBasics("Next: MLE Fit to Hyperbolic Density > ")
# Simulated random variates HYP(1, 0.3, 1, -1):
set.seed(1953)
s = rhyp(n = 1000, alpha = 1.5, beta = 0.3, delta = 0.5, mu = -1)
# Note, this may take some time.
# Starting vector (1, 0, 1, mean(s)):
hypFit(s, alpha = 1, beta = 0, delta = 1, mu = mean(s),
doplot = TRUE, width = 0.5)
## nigFit -
xmpBasics("Next: MLE Fit to Normal Inverse Gaussian Density > ")
# Simulated random variates HYP(1.5, 0.3, 0.5, -1.0):
set.seed(1953)
s = rnig(n = 1000, alpha = 1.5, beta = 0.3, delta = 0.5, mu = -1.0)
# Note, this may take some time.
# Starting vector (1, 0, 1, mean(s)):
nigFit(s, alpha = 1, beta = 0, delta = 1, mu = mean(s), doplot = TRUE)
## ssdFit -
xmpBasics("Next: Smoothed Spline Density > ")
set.seed(1953)
x = rnorm(1000)
ssdFit(x)
Run the code above in your browser using DataLab