## Not run:
# data(spectral_data)
#
# ## Set response variable (Chlorophyll content)
# spectral_data <- setResponse(spectral_data, "chlorophyll")
#
# ## Set additional predictor variables from the attributes
# spectral_data <- setPredictor(spectral_data, "season")
#
# ## Recursive feature selection
# ## Note that this may take some time!
# rfe_res <- rfe(spectral_data)
#
# get_rfe(rfe_res)
#
# plot(get_rfe(rfe_res))
# ## End(Not run)
Run the code above in your browser using DataLab