@@ -51,7 +51,7 @@

 \examples{

 library("msdata")

-f <- msdata::proteomics(full.names = TRUE, pattern = "TMT_")

+f <- msdata::proteomics(full.names = TRUE, pattern = "TMT_")[2]

 isolationWindow(f)

 rw <- openMSfile(f)

@@ -148,7 +148,7 @@

  close(mz)

  ## A shortgun LCMSMS experiment 

- f <- proteomics(full.names = TRUE, pattern = "^TMT")

+ f <- proteomics(full.names = TRUE, pattern = "^TMT")[2]

  x <- openMSfile(f, backend = "pwiz")

  x

  nChrom(x)