## 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")
#
# ## Supervised feature selection using simulated annealing
# ## Note that this may take some time!
# safs_res <- safs(spectral_data)
#
# get_safs(safs_res)
#
# plot(get_safs(safs_res))
# ## End(Not run)
Run the code above in your browser using DataLab