Whitespace and documentation fixes

R/NAMESPACE

@@ -1,9 +1,9 @@
 # Generated by roxygen2: do not edit by hand
 
+S3method(plot,prophet)
 S3method(predict,prophet)
 export(fit.prophet)
 export(make_future_dataframe)
-export(plot.prophet)
 export(predictive_samples)
 export(prophet)
 export(prophet_plot_components)

R/R/prophet.R

@@ -800,6 +800,22 @@ sample_posterior_predictive <- function(m, df) {
   return(sim.values)
 }  
 
+#' Sample from the posterior predictive distribution.
+#'
+#' @param m Prophet object.
+#' @param df Dataframe with dates for predictions (column ds), and capacity
+#'  (column cap) if logistic growth.
+#'
+#' @return A list with items "trend", "seasonal", and "yhat" containing
+#'  posterior predictive samples for that component.
+#'
+#' @export
+predictive_samples <- function(m, df) {
+    df <- setup_dataframe(m, df)$df
+    sim.values <- sample_posterior_predictive(m, df)
+    return(sim.values)
+}
+
 #' Prophet uncertainty intervals.
 #'
 #' @param m Prophet object.
@@ -827,7 +843,6 @@ predict_uncertainty <- function(m, df) {
   return(intervals)
 }
 
-
 #' Simulate observations from the extrapolated generative model.
 #'
 #' @param m Prophet object.
@@ -1175,20 +1190,4 @@ plot_yearly <- function(m, uncertainty = TRUE, yearly_start = 0) {
   return(gg.yearly)
 }
 
-#' Sample from the posterior predictive distribution.
-#'
-#' @param m Prophet object.
-#' @param df Dataframe with dates for predictions (column ds), and capacity
-#'  (column cap) if logistic growth.
-#'
-#' @return A list with items "trend", "seasonal", and "yhat" containing 
-#'  posterior predictive samples for that component.
-#'
-#' @export
-predictive_samples <- function(m, df) {
-    df <- setup_dataframe(m, df)$df
-    sim.values <- sample_posterior_predictive(m, df)
-    return(sim.values)
-}
-
 # fb-block 3

R/man/plot.prophet.Rd

@@ -4,8 +4,8 @@
 \alias{plot.prophet}
 \title{Plot the prophet forecast.}
 \usage{
-plot.prophet(x, fcst, uncertainty = TRUE, plot_cap = TRUE, xlabel = "ds",
+\method{plot}{prophet}(x, fcst, uncertainty = TRUE, plot_cap = TRUE,
-  ylabel = "y", ...)
+  xlabel = "ds", ylabel = "y", ...)
 }
 \arguments{
 \item{x}{Prophet object.}

R/man/sample_posterior_predictive.Rd

@@ -0,0 +1,19 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/prophet.R
+\name{sample_posterior_predictive}
+\alias{sample_posterior_predictive}
+\title{Prophet posterior predictive samples.}
+\usage{
+sample_posterior_predictive(m, df)
+}
+\arguments{
+\item{m}{Prophet object.}
+
+\item{df}{Prediction dataframe.}
+}
+\value{
+List with posterior predictive samples for each component.
+}
+\description{
+Prophet posterior predictive samples.
+}