Questa funzione permette il calcolo dell'indice di curtosi.
kurt(x)
x
skew.
skew
x <- rnorm(50) kurt(x) y <- rt(50,df=1) kurt(y)