# \donttest{
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=2)
# Overlaid plot
plotSpecMat(out$specMat, ppm_lim=c(0.5,9), K=0, pY=0.1)
# Stacked plot with perspective effect
plotSpecMat(out$specMat, ppm_lim=c(-0.1,9),K=0.33)
# Stacked plot with perspective effect with maximum asymmetric
plotSpecMat(out$specMat, ppm_lim=c(0.5,5), K=0.33, asym=0)
cols <- c(rep("red",3), rep("blue",3))
# Stacked plot with colors accordings to group levels
plotSpecMat(out$specMat, ppm_lim=c(0.5,5), K=0.67, dppm_max=0, cols=cols)
# }
Run the code above in your browser using DataLab