Calculate kurtosis
Examples
s <- rnorm(30,1,1.4)
kurtosis(s)
#> [1] -0.1411085
air_data <- datasets::airquality
mapply(kurtosis,air_data)
#> Ozone Solar.R Wind Temp Month Day
#> NA NA 0.02886468 -0.46289287 -1.31674648 -1.22244060