library(spectrolab)
spec = as_spectra(spec_matrix_example, name_idx = 1)
# Resampling spectra since a spectral dataset with 2,001 bands
# results in 2,001,000 unique spectral indices per sample
new_bands = seq(400, 2400, 10)
spec = resample(spec, new_bands, make_fwhm(spec, new_bands) )
p_idx = pairwise_indices(spec)
Run the code above in your browser using DataLab