# NOT RUN {
data(iris)
iris<-data.matrix(iris)#returns the matrix obtained by converting the data frame to numeric mode
ExtKur(iris[,1:4],10,"MAX") #returns a data projection with maximal kurtosis
# }
Run the code above in your browser using DataLab