# NOT RUN {
# }
# NOT RUN {
data_dir <- system.file("extra", package = "Rnmr1D")
CMDFILE <- file.path(data_dir, "NP_macro_cmd.txt")
SAMPLEFILE <- file.path(data_dir, "Samples.txt")
out <- Rnmr1D::doProcessing(data_dir, cmdfile=CMDFILE,
samplefile=SAMPLEFILE, ncpu=detectCores())
# Apply an intelligent bucketing (AIBIN)
specMat.new <- Rnmr1D::doProcCmd(out,
c("bucket aibin 10.2 10.5 0.3 3 0",
"9.5 4.9",
"4.8 0.5",
"EOL"
),ncpu=2, debug=TRUE)
out$specMat <- specMat.new
# }
Run the code above in your browser using DataLab