# NOT RUN {
spectra.processed.A <- process_monospectra(
file=system.file("extdata", "listA.txt", package="MGMS2"),
mass.range=c(1000,2200))
spectra.processed.B <- process_monospectra(
file=system.file("extdata", "listB.txt", package="MGMS2"),
mass.range=c(1000,2200))
spectra.processed.C <- process_monospectra(
file=system.file("extdata", "listC.txt", package="MGMS2"),
mass.range=c(1000,2200))
spectra.mono.summary.A <- summarize_monospectra(
processed.obj=spectra.processed.A,
species='A', directory=tempdir())
spectra.mono.summary.B <- summarize_monospectra(
processed.obj=spectra.processed.B,
species='B', directory=tempdir())
spectra.mono.summary.C <- summarize_monospectra(
processed.obj=spectra.processed.C,
species='C', directory=tempdir())
summary <- gather_summary_file(directory=tempdir())
# }
Run the code above in your browser using DataLab