Indexing vector for extracting transmittance spectra for
window glass panes from object filters.mspct.
Note
The spectral data for these glasses is taken from file http://files.cie.co.at/206.xls, downloaded 2017-06-25. Abbreviated names from the original .xls file used as member names. Full glass names, thickness and manufacturers names, retained and stored as metadata in attribute "what.measured".
Examples
glass_windows
#> [1] "JIS_Z8902" "ISOPAL" "IPLUS"
#> [4] "Pilkington_Active" "Sample_1" "Sample_2"
#> [7] "Vitro_414" "Vitro_415" "Vitro_416"
#> [10] "Pilkington_4007" "Planibel_4201b" "Planibel_4201"
#> [13] "Planibel_4204" "Starphire_5001" "Starphire_5002"
#> [16] "Starphire_5003" "Starphire_5004" "Starphire_5005"
#> [19] "Starphire_5006" "Starphire_5007" "Starphire_5070"
#> [22] "Starphire_5071" "Starphire_5072" "PPG_5075"
#> [25] "PPG5076" "Pilkington_9817"
summary(filters.mspct[glass_windows])
#> Summary of filter_mspct [26 x 1] object: anonymous
#> # A tibble: 26 × 8
#> spct.idx class dim w.length.min w.length.max colnames multiple.wl Tfr.type
#> <chr> <chr> <chr> <dbl> <dbl> <list> <dbl> <chr>
#> 1 JIS_Z8902 filt… [97 … 300 780 <chr> 1 total
#> 2 ISOPAL filt… [97 … 300 780 <chr> 1 total
#> 3 IPLUS filt… [97 … 300 780 <chr> 1 total
#> 4 Pilkingt… filt… [97 … 300 780 <chr> 1 total
#> 5 Sample_1 filt… [97 … 300 780 <chr> 1 total
#> 6 Sample_2 filt… [97 … 300 780 <chr> 1 total
#> 7 Vitro_414 filt… [97 … 300 780 <chr> 1 total
#> 8 Vitro_415 filt… [97 … 300 780 <chr> 1 total
#> 9 Vitro_416 filt… [97 … 300 780 <chr> 1 total
#> 10 Pilkingt… filt… [97 … 300 780 <chr> 1 total
#> # ℹ 16 more rows
summary(filters.mspct[glass_windows[grep("Pilkington", glass_windows)]])
#> Summary of filter_mspct [3 x 1] object: anonymous
#> # A tibble: 3 × 8
#> spct.idx class dim w.length.min w.length.max colnames multiple.wl Tfr.type
#> <chr> <chr> <chr> <dbl> <dbl> <list> <dbl> <chr>
#> 1 Pilkingto… filt… [97 … 300 780 <chr> 1 total
#> 2 Pilkingto… filt… [97 … 300 780 <chr> 1 total
#> 3 Pilkingto… filt… [97 … 300 780 <chr> 1 total