bugfix #1 tic

fgcz · Oct 23, 2020 · 7b97676 · 7b97676
1 parent ceb6dad
commit 7b97676
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 4 deletions.
diff --git a/R/rawR.R b/R/rawR.R
@@ -449,8 +449,8 @@ readChromatogram <- function(rawfile,
 
         if (type == 'tic'){
             rv <- list(
-                tic = list(times=DF$rt,
-                           intensities=DF$intensity.TIC))
+                times=DF$rt,
+                intensities=DF$intensity.TIC)
         }else{
             # expect bpc
             rv <- list(times=DF$rt,

diff --git a/vignettes/JPR_TechnicalNote.Rmd b/vignettes/JPR_TechnicalNote.Rmd
@@ -110,10 +110,9 @@ names(iRT) <- c("LGGNEQVTR", "YILAGVENSK", "GTFIIDPGGVIR", "GTFIIDPAAVIR",
                  "LFLQFGAQGSPFLK")
 
 C <- readChromatogram(rawfile, iRT, tol=10)
+plot(C)
 ```
 
-par(mfrow=c(2, 1), mar=c(4, 4, 1, 1))
-plot(C)
 
 ```{r plotBasePeak}
 plot(CC<-readChromatogram(rawfile, type='bpc'))