diff --git a/R/R/plot.R b/R/R/plot.R
index 62cb1f9..0c7b675 100644
--- a/R/R/plot.R
+++ b/R/R/plot.R
@@ -430,7 +430,7 @@ dyplot.prophet <- function(x, fcst, uncertainty=TRUE,
   df <- df_for_plotting(x, fcst)
   
   # build variables to include, or not, the uncertainty data
-  if(uncertainty && x$uncertainty.sampes && exists("yhat_lower", where = df))
+  if(uncertainty && x$uncertainty.samples && exists("yhat_lower", where = df))
   {
     colsToKeep <- c('y', 'yhat', 'yhat_lower', 'yhat_upper')
     forecastCols <- c('yhat_lower', 'yhat', 'yhat_upper')