# NOT RUN {
#Read in data
data <- read_6800(system.file("extdata", "poplar_2", package = "racir"))
caldata <- read_6800(system.file("extdata", "cal", package = "racir"))
#Correct data
racircalcheck_advanced(data = data, mincut = 350, maxcut = 780)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab