Nothing
## ----openraw------------------------------------------------------------------
library(mzR)
library(msdata)
mzxml <- system.file("threonine/threonine_i2_e35_pH_tree.mzXML",
package = "msdata")
aa <- openMSfile(mzxml)
## ----get header information---------------------------------------------------
runInfo(aa)
instrumentInfo(aa)
header(aa,1)
## ----plotspectrum-------------------------------------------------------------
pl <- peaks(aa,10)
peaksCount(aa,10)
head(pl)
plot(pl[,1], pl[,2], type="h", lwd=1)
## ----close the file-----------------------------------------------------------
close(aa)
## ----openid-------------------------------------------------------------------
library(mzR)
library(msdata)
file <- system.file("mzid", "Tandem.mzid.gz", package="msdata")
x <- openIDfile(file)
## ----metadata-----------------------------------------------------------------
mzidInfo(x)
## ----psms0--------------------------------------------------------------------
p <- psms(x)
colnames(p)
## ----psms1--------------------------------------------------------------------
m <- modifications(x)
head(m)
## ----psms2--------------------------------------------------------------------
scr <- score(x)
colnames(scr)
## ----label=sessioninfo, results='asis', echo=FALSE----------------------------
toLatex(sessionInfo())
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.