From 23b14803cfbb8465bd422bc448c0d326ab672f46 Mon Sep 17 00:00:00 2001 From: Mitchell Date: Thu, 1 Aug 2019 11:01:22 +1000 Subject: [PATCH] Changed mdl_nm to model_cn (model column name) Related: #96 --- R/fable.R | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/R/fable.R b/R/fable.R index 189c27bd..efda4fc7 100644 --- a/R/fable.R +++ b/R/fable.R @@ -55,7 +55,7 @@ as_fable.tbl_ts <- function(x, response, distribution, ...){ fbl <- new_tsibble(x, class = "fbl_ts", response = response, dist = enexpr(distribution), - mdl_nm = ".model") + model_cn = ".model") validate_fable(fbl) fbl } @@ -78,7 +78,7 @@ as_fable.grouped_ts <- function(x, response, distribution, ...){ fbl <- structure(x, class = c("grouped_fbl", "grouped_ts", "grouped_df", "fbl_ts", "tbl_ts", "tbl_df", "tbl", "data.frame"), response = response, dist = enexpr(distribution), - mdl_nm = ".model") + model_cn = ".model") validate_fable(fbl) fbl } @@ -115,7 +115,7 @@ as_tsibble.fbl_ts <- function(x, ...){ #' @export as_tsibble.grouped_fbl <- function(x, ...){ structure(x, class=setdiff(class(x), c("grouped_fbl", "fbl_ts")), - response = NULL, dist = NULL, mdl_nm = NULL) + response = NULL, dist = NULL, model_cn = NULL) } validate_fable <- function(fbl){