saymrwulf/prophet
1
0
Fork 0
mirror of https://github.com/saymrwulf/prophet.git synced 2026-09-16 22:20:23 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Remove hanging spaces

Browse source
This commit is contained in:
Ben Letham 2017-04-07 19:09:24 -07:00
parent 1a7112268e
commit 47ae61f44e
3 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
R/R/prophet.R
View file

@ -2,7 +2,7 @@
## All rights reserved. ## All rights reserved.
## This source code is licensed under the BSD-style license found in the ## 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. ## of patent rights can be found in the PATENTS file in the same directory.
## Makes R CMD CHECK happy due to dplyr syntax below ## Makes R CMD CHECK happy due to dplyr syntax below
@ -468,7 +468,7 @@ logistic_growth_init <- function(df) {
#' #'
#' @param m Prophet object. #' @param m Prophet object.
#' @param df Data frame. #' @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. #' \code{sampling} functions in Stan.
#' #'
#' @export #' @export
@ -581,7 +581,7 @@ fit.prophet <- function(m, df, ...) {
#' forecast <- predict(m, future) #' forecast <- predict(m, future)
#' plot(m, forecast) #' plot(m, forecast)
#' } #' }
#' #'
#' @export #' @export
predict.prophet <- function(object, df = NULL, ...) { predict.prophet <- function(object, df = NULL, ...) {
if (is.null(df)) { if (is.null(df)) {

2
R/man/fit.prophet.Rd
View file

@ -11,7 +11,7 @@ fit.prophet(m, df, ...)
\item{df}{Data frame.} \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.} \code{sampling} functions in Stan.}
} }
\description{ \description{

2
R/tests/testthat/test_prophet.R
View file

@ -33,7 +33,7 @@ test_that("fit_predict_no_changepoints", {
test_that("fit_predict_changepoint_not_in_history", { test_that("fit_predict_changepoint_not_in_history", {
skip_if_not(Sys.getenv('R_ARCH') != '/i386') skip_if_not(Sys.getenv('R_ARCH') != '/i386')
train_t <- dplyr::mutate(DATA, ds=zoo::as.Date(ds)) 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'))) (ds > zoo::as.Date('2014-01-01')))
future <- data.frame(ds=DATA$ds) future <- data.frame(ds=DATA$ds)
m <- prophet(train_t, changepoints=c('2013-06-06')) m <- prophet(train_t, changepoints=c('2013-06-06'))