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