# NOT RUN {
devtools::install_github("maialba3/LipidMSdata2")
library(LipidMS)
msobject <- idPOS(LipidMSdata2::msobjectDIApos)
msobject <- plotLipids(msobject)
# display the first plot
msobject$plots[[1]]
msobject$plots[["peakID"]]
# save all plot to a pdf file
pdf("plotresults.pdf")
msobject$plots
dev.off()
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab