## ----openraw------------------------------------------------------------------
library(mzR)
f <- MsDataHub::PestMix1_DDA.mzML()
aa <- openMSfile(f)

## ----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)

file <- MsDataHub::TMT_Erwinia_1uLSike_Top10HCD_isol2_45stepped_60min_01.20141210.mzid()
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())