31
XCMS / Re: How do I plot the EIC for compounds XCMS has found?
THANK YOU very much, Carsten!!!
Laura
This section allows you to view all Messages made by this member. Note that you can only see Messages made in areas you currently have access to.
MF1.raw <- getEIC(set5.filledpeaks, rt="raw", groupidx=1)And here's what I did for the 4th mass feature (and this gave me that error above when I tried getEIC so I didn't even get to the plot part):
MF1.cor <- getEIC(set5.filledpeaks, rt="corrected", groupidx=1)
par(mfrow=c(2,1))
plot(MF1.raw, set5.filledpeaks, groupidx=1)
plot(MF1.cor, set5.filledpeaks, groupidx=1)
MF4.raw <- getEIC(set5.filledpeaks, rt="raw", groupidx=4)Any suggestions? Thank you very much for your help!
MF4.cor <- getEIC(set5.filledpeaks, rt="corrected", groupidx=4)
reporttab<-diffreport(xset3,class1="Control",class2="WSN",filebase="mztest",eicmax=7000,eicwidth=120,classeic=c("control","wsn"),value=c("into"),metlin=.03,h=480,w=640)
setwd("C:/Users/Laura/Documents")
MyFiles <- list.files(getwd(), pattern="mzdata.xml", full.names=FALSE, recursive=TRUE)
xset <- xcmsSet(MyFiles, method='centWave',ppm=5,peakwidth=c(5,90),snthresh=3,mzdiff=0.01,prefilter=c(3,10))I don't know how important it is to specify the object with xcmsSet. If it seems to work without specifying, then I guess you're fine, but I've been specifying it. That way I also know for sure that I'm analyzing what I mean to analyze.
MyReport <- diffreport(xset3, "Group1", "Group2", "MyOutputFile", 20)
QCset5 <- xcmsSet(Samples, method = "centWave", snthresh = 10,
ppm=15, peakwidth=c(6,18),
mzCenterFun="wMean",integrate = 1,fitgauss= TRUE)
QCset5
QCset5.grouped <- group(QCset5, method="density", minsamp=1, mzwid=0.004)
QCset5.RTcor <- retcor(QCset5.grouped, missing=0, extra=1, smooth="loess",
family="symmetric", plottype="mdevden")
QCset5.grouped.2 <- group(QCset5.RTcor, method="density", minsamp=1, mzwid=0.004)
QCset5.filledpeaks <- fillPeaks(QCset5.grouped.2)
QCset.5c1e <- diffreport(QCset5.filledpeaks, "20110211", "20110223", "QCurine XCMS 5c1e", 20)
Samples <- list.files(getwd(), pattern="mzdata.xml", full.names=FALSE, recursive=TRUE)
QCset <- xcmsSet(Samples, method = "centWave", snthresh = 10,
ppm=5, peakwidth=c(10,30),
mzCenterFun="wMean",integrate = 1,fitgauss= TRUE)
QCset
QCset.mzClust <- group(QCset, method="mzClust", minsamp=1, mzppm=5)
QCset.mzClust.2 <- retcor(QCset.mzClust, missing=0, extra=1, smooth="loess",
family="symmetric", plottype="mdevden")
QCset.mzClust.3 <- group(QCset.mzClust.2, method="mzClust", minsamp=1, mzppm=5)
QCset.mzClust.4 <- fillPeaks(QCset.mzClust.3)
QCset.5c1c <- diffreport(QCset.mzClust.4, "20110211", "20110223", "QCurine XCMS 5c1c", 20)