file <- system.file("extdata","sample1.cdf",package="gcxgclab")
frame <- extract_data(file,mod_t=.5)
peaks <- top_peaks(frame$TIC_df, 5)
mzs <- batch_ms(frame, t_peaks = peaks$'T'[1:5])
for (i in 1:length(mzs)){
print(plot_ms(mzs[[i]], title=paste('Mass Spectrum of peak', i)))
}
Run the code above in your browser using DataLab