# Load example data
data_path <- system.file("examples", "FB_10Gy_SAR.bin", package = "OSLdecomposition")
data_set <- Luminescence::read_BIN2R(data_path, fastForward = TRUE)
# Test if record is of type OSL
check_RLum.Data(data_set[[5]]@records[[1]])
Run the code above in your browser using DataLab