## read log file (RLum.Analysis)
file <- system.file("extdata/BINX_IRSL_LOG.TXT", package = "Luminescence")
object <- read_BINXLOG2R(file = file)
## convert to RisoeBINFile-class object
object <- convert_RLum2Risoe.BINfileData(object)
## export as BINX
if (FALSE) {
write_R2BIN(t, file = tempfile(), version = "04")
}
Run the code above in your browser using DataLab