render compile

SD/1_model/index.qmd

@@ -197,16 +197,19 @@ taxi
 #| 
 set.seed(123)
 library(forcats)
-one_split <- slice(taxi, 1:30) %>% 
-  initial_split() %>% 
-  tidy() %>% 
-  add_row(Row = 1:30, Data = "Original") %>% 
-  mutate(Data = case_when(
+require(tidymodels)
+require(tidyverse)
+one_split <- taxi |>
+  dplyr::slice(1:30) |> 
+  rsample::initial_split() |>
+  generics::tidy() |>
+  tibble::add_row(Row = 1:30, Data = "Original") |>
+  dplyr::mutate(Data = case_when(
     Data == "Analysis" ~ "Training",
     Data == "Assessment" ~ "Testing",
     TRUE ~ Data
-  )) %>% 
-  mutate(Data = factor(Data, levels = c("Original", "Training", "Testing")))
+  )) |>
+  dplyr::mutate(Data = factor(Data, levels = c("Original", "Training", "Testing")))
 all_split <-
   ggplot(one_split, aes(x = Row, y = fct_rev(Data), fill = Data)) + 
   geom_tile(color = "white",