# read file containing a single reflectaance spectrum
file.name <-
system.file("extdata", "cid-spectravue-Rpc-Measurements.csv",
package = "photobiologyInOut", mustWork = TRUE)
cid_filter.spct <-
read_cid_spectravue_csv(file = file.name)
summary(cid_filter.spct)
cid_filter.spct <-
read_cid_spectravue_csv(file = file.name, simplify = FALSE)
summary(cid_filter.spct)
# read data measured as absorbance (A, Rpc and Tpc)
file.name <-
system.file("extdata", "cid-spectravue-Abs-Measurements.csv",
package = "photobiologyInOut", mustWork = TRUE)
cid.object_spct <-
read_cid_spectravue_csv(file = file.name)
summary(cid.object_spct)
cid_A.filter_spct <-
read_cid_spectravue_csv(file = file.name, absorbance.to = "A")
summary(cid_A.filter_spct)
Run the code above in your browser using DataLab