Patch retail data function's usage of fill_gaps()

numbats · Mar 17, 2024 · 45d2a57 · 45d2a57
1 parent 87639ca
commit 45d2a57
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/assignments/A2.qmd b/assignments/A2.qmd
@@ -8,10 +8,10 @@ This assignment will use the same data that you will use in the [retail project]
 library(fpp3)
 get_my_data <- function(student_id) {
   set.seed(student_id)
-  all_data <- fill_gaps(readr::read_rds("https://bit.ly/monashretaildata"))
+  all_data <- readr::read_rds("https://bit.ly/monashretaildata")
   while(TRUE) {
     retail <- filter(all_data, `Series ID` == sample(`Series ID`, 1)) 
-    if(!any(is.na(retail$Turnover))) return(retail)
+    if(!any(is.na(fill_gaps(retail)$Turnover))) return(retail)
   }
 }
 # Replace the argument with your student ID

diff --git a/assignments/Project.qmd b/assignments/Project.qmd
@@ -10,10 +10,10 @@ title: Retail Project
 library(fpp3)
 get_my_data <- function(student_id) {
   set.seed(student_id)
-  all_data <- fill_gaps(readr::read_rds("https://bit.ly/monashretaildata"))
+  all_data <- readr::read_rds("https://bit.ly/monashretaildata")
   while(TRUE) {
     retail <- filter(all_data, `Series ID` == sample(`Series ID`, 1)) 
-    if(!any(is.na(retail$Turnover))) return(retail)
+    if(!any(is.na(fill_gaps(retail)$Turnover))) return(retail)
   }
 }
 # Replace the argument with your student ID