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