x <- matrix(1:100, ncol = 2)
wl <- (301:350)
z <- mat2mspct(x, wl, "filter_spct", "Tpc")
x <- matrix(1:100, nrow = 2, byrow = TRUE)
wl <- (301:350)
z <- mat2mspct(x, wl, "filter_spct", "Tpc", byrow = TRUE, spct.name = c("A", "B"))
Run the code above in your browser using DataLab