library(xcms)
library(qcrms)
## Get the full path to the mzML files
mzml_files <- dir(system.file("extdata/MTBLS404/mzML", package="structData"),
full.names=TRUE, recursive=TRUE)
xset <- xcms::xcmsSet(mzml_files, method="centWave", peakwidth=c(7, 30),
ppm=8, mzdiff=0.013, snthresh=10, noise=5000)
xset <- xcms::group(xset, method="density", bw=5, mzwid=0.01)
usethis::use_data(xset)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.