# -----------------------------------------------------
# Student Distribution Example
# -----------------------------------------------------
# Create the distribution
df <- 12
D <- Stud(df)
# ------------------
# dpqr Functions
# ------------------
d(D, c(-3, 0, 3)) # density function
p(D, c(-3, 0, 3)) # distribution function
qn(D, c(0.4, 0.8)) # inverse distribution function
x <- r(D, 100) # random generator function
# alternative way to use the function
d1 <- d(D) ; d1(x) # d1 is a function itself
# ------------------
# Moments
# ------------------
mean(D) # Expectation
median(D) # Median
mode(D) # Mode
var(D) # Variance
sd(D) # Standard Deviation
skew(D) # Skewness
kurt(D) # Excess Kurtosis
entro(D) # Entropy
# List of all available moments
mom <- moments(D)
mom$mean # expectation
# ------------------
# Point Estimation
# ------------------
ll(D, x)
llt(x, df)
Run the code above in your browser using DataLab