file.name <-
system.file("extdata", "spectrum.DTA",
package = "photobiologyInOut", mustWork = TRUE)
macam.spct <- read_macam_dta(file = file.name)
macam.spct
getWhenMeasured(macam.spct)
getWhatMeasured(macam.spct)
cat(comment(macam.spct))
Run the code above in your browser using DataLab