# NOT RUN {
#load example RAW file
file <- system.file("extdata/D5000/RAW/D5000_1.RAW", package = "powdR")
raw1 <- extract_xy(file)
#Load multiple RAW files
files <- dir(system.file("extdata/D5000/RAW", package = "powdR"),
full.names = TRUE)
raw_list <- extract_xy(files)
class(raw_list)
# }
# NOT RUN {
plot(raw_list, wavelength = "Cu")
plot(raw_list, wavelength = "Cu", interactive = TRUE)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab