Pessoal alguém tem alguma sugestão melhor para estimar assimetria e curtose? 

Este pacote não bate a definição de  Ferreira, D, F. 2005.

curtose=m_4/s^4

assimetria= m_3/s^3

--------------------------------------------------------------------------------------------------------------------------------------------------------
x=c(2,3,,5,6,8,9)

library(fBasics)
basicStats(x)