# NOT RUN {
# 40 data for versicolor in the iris dataset
iris_versicolor <- iris[61:100, -5]
reduces_dimensionality <-
generates_dimensionality_reduction_function(iris_versicolor)
is.function(reduces_dimensionality) # TRUE
# }
Run the code above in your browser using DataLab