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