# NOT RUN {
#Create a list of files
files <- c(system.file("extdata", "poplar_1", package = "racir"),
system.file("extdata", "poplar_2", package = "racir"))
data <- vector("list", length(files))
for(i in seq_along(files)){
data[[i]] <- read_6800(files[i])
names(data)[i] <- files[i]
}
caldata <- read_6800(system.file("extdata", "cal", package = "racir"))
output <- racircalbatch(caldata = caldata, data = data,
mincut = 300, maxcut = 780, title = files)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab