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