file.name <-
system.file("extdata", "CIE_illum_C.csv",
package = "photobiologyInOut", mustWork = TRUE)
CIE_illum_C.spct <- read_CIE_csv(file.name)
CIE_illum_C.spct
file.name <-
system.file("extdata", "CIE_sle_photopic.csv",
package = "photobiologyInOut", mustWork = TRUE)
CIE_sle_photopic.spct <- read_CIE_csv(file.name)
CIE_sle_photopic.spct
Run the code above in your browser using DataLab