Buenas:
Puedes hacerlo utilizando la función apply
> library(e1071)
> data(iris)
> apply(iris[,1:4], 2, kurtosis, na.rm=TRUE, type = 1)
Sepal.Length Sepal.Width Petal.Length Petal.Width
-0.5735679 0.1809763 -1.3955359 -1.3360674
Un saludo.
Buenas:
Puedes hacerlo utilizando la función apply
> library(e1071)
> data(iris)
> apply(iris[,1:4], 2, kurtosis, na.rm=TRUE, type = 1)
Sepal.Length Sepal.Width Petal.Length Petal.Width
-0.5735679 0.1809763 -1.3955359 -1.3360674
Un saludo.