diff --git a/R/R/prophet.R b/R/R/prophet.R index 4f33913..4045510 100644 --- a/R/R/prophet.R +++ b/R/R/prophet.R @@ -2,7 +2,7 @@ ## All rights reserved. ## This source code is licensed under the BSD-style license found in the -## LICENSE file in the root directory of this source tree. An additional grant +## LICENSE file in the root directory of this source tree. An additional grant ## of patent rights can be found in the PATENTS file in the same directory. ## Makes R CMD CHECK happy due to dplyr syntax below @@ -468,7 +468,7 @@ logistic_growth_init <- function(df) { #' #' @param m Prophet object. #' @param df Data frame. -#' @param ... Additional arguments passed to the \code{optimizing} or +#' @param ... Additional arguments passed to the \code{optimizing} or #' \code{sampling} functions in Stan. #' #' @export @@ -581,7 +581,7 @@ fit.prophet <- function(m, df, ...) { #' forecast <- predict(m, future) #' plot(m, forecast) #' } -#' +#' #' @export predict.prophet <- function(object, df = NULL, ...) { if (is.null(df)) { diff --git a/R/man/fit.prophet.Rd b/R/man/fit.prophet.Rd index 9fa0426..fd6a8e0 100644 --- a/R/man/fit.prophet.Rd +++ b/R/man/fit.prophet.Rd @@ -11,7 +11,7 @@ fit.prophet(m, df, ...) \item{df}{Data frame.} -\item{...}{Additional arguments passed to the \code{optimizing} or +\item{...}{Additional arguments passed to the \code{optimizing} or \code{sampling} functions in Stan.} } \description{ diff --git a/R/tests/testthat/test_prophet.R b/R/tests/testthat/test_prophet.R index 6700318..e318705 100644 --- a/R/tests/testthat/test_prophet.R +++ b/R/tests/testthat/test_prophet.R @@ -33,7 +33,7 @@ test_that("fit_predict_no_changepoints", { test_that("fit_predict_changepoint_not_in_history", { skip_if_not(Sys.getenv('R_ARCH') != '/i386') train_t <- dplyr::mutate(DATA, ds=zoo::as.Date(ds)) - train_t <- dplyr::filter(train_t, (ds < zoo::as.Date('2013-01-01')) | + train_t <- dplyr::filter(train_t, (ds < zoo::as.Date('2013-01-01')) | (ds > zoo::as.Date('2014-01-01'))) future <- data.frame(ds=DATA$ds) m <- prophet(train_t, changepoints=c('2013-06-06'))