## absMoment -
absMoments(1, "dstd", nu = 6)
absMoments(1, "dstd", nu = 600)
absMoments(1, "dstd", nu = 60000)
absMoments(1, "dstd", nu = 600000)
absMoments(1, "dnorm")
## excess kurtosis of t_nu is 6/(nu - 4)
nu <- 6
absMoments(2*2, "dstd", nu = nu) / absMoments(2*1, "dstd", nu = nu)^2 - 3
6/(nu-4)
## 4th moment for t_4 is infinite
absMoments(4, "dstd", nu = 4)
absMoments(1, "dged", nu = 4)
Run the code above in your browser using DataLab