R check cleanups

This commit is contained in:
Ben Letham 2018-05-30 23:19:56 -07:00
parent af2824fbd0
commit e0cf400e23
2 changed files with 2 additions and 2 deletions

View file

@ -34,7 +34,7 @@ generate_cutoffs <- function(df, horizon, initial, period) {
}
result <- c(result, cutoff)
}
result <- head(result, -1)
result <- utils::head(result, -1)
if (length(result) == 0) {
stop(paste(
'Less data than horizon after initial window.',

View file

@ -390,7 +390,7 @@ dyplot.prophet <- function(x, fcst, uncertainty=TRUE,
forecast.label='Predicted'
actual.label='Actual'
# create data.frame for plotting
df <- prophet:::df_for_plotting(x, fcst)
df <- df_for_plotting(x, fcst)
# build variables to include, or not, the uncertainty data
if(uncertainty && exists("yhat_lower", where = df))