saymrwulf/prophet
1
0
Fork 0
mirror of https://github.com/saymrwulf/prophet.git synced 2026-07-30 20:18:11 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Replace deprecated functions

Browse source
This commit is contained in:
Sean Taylor 2020-02-26 12:41:34 -08:00
parent 1f6a265839
commit 83e2479699
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
R/R/prophet.R
View file

@ -597,7 +597,7 @@ make_holiday_features <- function(m, dates, holidays) {
}
names <- paste(.$holiday, '_delim_', ifelse(offsets < 0, '-', '+'),
abs(offsets), sep = '')
dplyr::data_frame(ds = .$ds + offsets * 24 * 3600, holiday = names)
dplyr::tibble(ds = .$ds + offsets * 24 * 3600, holiday = names)
}) %>%
dplyr::mutate(x = 1.) %>%
tidyr::spread(holiday, x, fill = 0)
@ -911,7 +911,7 @@ make_all_seasonality_features <- function(m, df) {
#'
#' @keywords internal
regressor_column_matrix <- function(m, seasonal.features, modes) {
components <- dplyr::data_frame(component = colnames(seasonal.features)) %>%
components <- dplyr::tibble(component = colnames(seasonal.features)) %>%
dplyr::mutate(col = seq_len(dplyr::n())) %>%
tidyr::separate(component, c('component', 'part'), sep = "_delim_",
extra = "merge", fill = "right") %>%
@ -1553,7 +1553,7 @@ predict_uncertainty <- function(m, df) {
colnames(intervals) <- paste(rep(c('yhat', 'trend'), each=2),
c('lower', 'upper'), sep = "_")
return(dplyr::as_data_frame(intervals))
return(dplyr::as_tibble(intervals))
}
#' Simulate observations from the extrapolated generative model.