## Not run:
# library(msdata)
# mzdatapath <- system.file("fticr", package = "msdata")
# mzdatafiles <- list.files(mzdatapath, recursive = TRUE, full.names = TRUE)
#
# xs <- xcmsSet(method="MSW", files=mzdatafiles, scales=c(1,7), SNR.method='data.mean' , winSize.noise=500,
# peakThr=80000, amp.Th=0.005)
#
# xsg <- group(xs, method="mzClust")
# ## End(Not run)
Run the code above in your browser using DataLab