data(spectral_data)
## Return names of attributes data
names(attribute(spectral_data))
## Devide into both seasons
sp_summer <- subset(spectral_data, season == "summer")
sp_spring <- subset(spectral_data, season == "spring")
## Plot both speclibs
plot(sp_summer, col="darkgreen")
plot(sp_spring, col="darkred", new=FALSE)
Run the code above in your browser using DataLab