diff --git a/howTo/shiny/Intensity_02.R b/howTo/shiny/Intensity_02.R
index 2acb79dd0045c8790c4c8b923f362355a843edf5..1261959a2a317a1c4f150740d98a00d29b16c3a4 100644
--- a/howTo/shiny/Intensity_02.R
+++ b/howTo/shiny/Intensity_02.R
@@ -28,6 +28,8 @@ getIntensity<- function(dateGet = input$dateToGet, longDF = TRUE) {
   # create time midpoint for plotting
   intensityDF$periodMid <- intensityDF$periodStart + lubridate::minutes(15)
   
+  intensityDF <- intensityDF[-1,] # remove 1st row
+  
   if(longDF){
   # prepare data - tidyr
   intensityDF <- tidyr::gather(intensityDF, key = "measure", value = "value", c(forecast,actual))