diff --git a/R/rawR.R b/R/rawR.R
index 3809182..5076d0f 100644
--- 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
index 5315fe7..ea1db38 100644
--- 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'))