powered by
sprem(spectra, n = 1)
data(spData) # Convert data frame to matrix spectra <- as.matrix(t(spData)) # Removed spectra rem <- sprem(spectra=spectra, n=1)
Run the code above in your browser using DataLab