# 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
data_corrected <- racircal_advanced(data = data, caldata = caldata,
mincut = 350, maxcut = 780,
digits = -2, title = "Test")
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab