1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
# remotes::install_version("recipes", "1.0.1")
library(recipes)
data("Sacramento", package = "modeldata")
Sacramento$lgl1 <- Sacramento$beds >= 1
Sacramento$lgl2 <- Sacramento$beds >= 2
Sacramento$ord1 <- as.ordered(Sacramento$type)
Sacramento$ord2 <- as.ordered(Sacramento$type)
Sacramento$date1 <- as.Date(Sacramento$sqft, "2000-01-01")
Sacramento$date2 <- as.Date(Sacramento$sqft, "2000-01-01")
Sacramento$datetime1 <- as.POSIXct(Sacramento$sqft, origin = "2000-01-01 00:00:00")
Sacramento$datetime2 <- as.POSIXct(Sacramento$sqft, origin = "2000-01-01 00:00:00")
old_rec_sac <- recipe(~., data = Sacramento)
old_pca_rec_sac <- old_rec_sac %>%
step_normalize(all_numeric_predictors()) %>%
step_pca(beds, baths, sqft) %>%
prep()
# Saving -----------------------------------------------------------------------
save(
old_rec_sac,
old_pca_rec_sac,
file = testthat::test_path("old-get_types.RData"),
version = 2
)
|
