# NOT RUN {
data(iris)
iris<-data.matrix(iris)#returns the matrix obtained by converting the data frame to numeric mode
ScalarKurt(iris[,1:4],"moment","Mardia","upper")#returns the statistic and the p-value
#of Mardia's kurtosis test for normality
# }
Run the code above in your browser using DataLab