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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
|
## ---- include = FALSE---------------------------------------------------------
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>"
)
options(rlang_backtrace_on_error = "none")
## ----setup--------------------------------------------------------------------
library(hardhat)
library(modeldata)
data(penguins)
penguins <- na.omit(penguins)
## -----------------------------------------------------------------------------
penguin_train <- penguins[1:300,]
penguin_test <- penguins[-(1:300),]
## -----------------------------------------------------------------------------
penguin_form <- mold(
log(body_mass_g) ~ species + bill_length_mm,
penguin_train,
blueprint = default_formula_blueprint(indicators = "none")
)
formula_eng <- penguin_form$blueprint
formula_eng
## -----------------------------------------------------------------------------
forge(penguin_test, formula_eng)
## -----------------------------------------------------------------------------
forge(penguin_test, formula_eng, outcomes = TRUE)
## ---- error=TRUE--------------------------------------------------------------
test_missing_column <- subset(penguin_test, select = -species)
forge(test_missing_column, formula_eng)
## ---- error=TRUE--------------------------------------------------------------
test_species_double <- penguin_test
test_species_double$species <- as.double(test_species_double$species)
forge(test_species_double, formula_eng)
## -----------------------------------------------------------------------------
test_species_character <- penguin_test
test_species_character$species <- as.character(test_species_character$species)
forged_char <- forge(test_species_character, formula_eng)
forged_char$predictors
class(forged_char$predictors$species)
levels(forged_char$predictors$species)
## ---- warning=TRUE------------------------------------------------------------
test_species_lossy <- penguin_test
test_species_lossy$species <- as.character(test_species_lossy$species)
test_species_lossy$species[2] <- "im new!"
forged_lossy <- forge(test_species_lossy, formula_eng)
forged_lossy$predictors
## ---- error=FALSE, warning=FALSE, message = FALSE-----------------------------
library(recipes)
rec <- recipe(bill_length_mm ~ body_mass_g + species, penguin_train) %>%
step_dummy(species)
penguin_recipe <- mold(rec, penguin_train)
penguin_recipe$predictors
## -----------------------------------------------------------------------------
recipe_eng <- penguin_recipe$blueprint
recipe_eng
## -----------------------------------------------------------------------------
forge(penguin_test, recipe_eng, outcomes = TRUE)
## -----------------------------------------------------------------------------
rec2 <- recipe(bill_length_mm ~ body_mass_g + species, penguin_train) %>%
step_dummy(species) %>%
step_center(bill_length_mm) # Here we modify the outcome
penguin_recipe2 <- mold(rec2, penguin_train)
recipe_eng_log_outcome <- penguin_recipe2$blueprint
## ---- error=TRUE--------------------------------------------------------------
penguin_test_no_outcome <- subset(penguin_test, select = -bill_length_mm)
forge(penguin_test_no_outcome, recipe_eng_log_outcome)
## -----------------------------------------------------------------------------
rec3 <- recipe(bill_length_mm ~ body_mass_g + species, penguin_train) %>%
step_dummy(species) %>%
step_center(bill_length_mm, skip = TRUE)
penguin_recipe3 <- mold(rec3, penguin_train)
recipe_eng_skip_outcome <- penguin_recipe3$blueprint
forge(penguin_test_no_outcome, recipe_eng_skip_outcome)
## -----------------------------------------------------------------------------
forge(penguin_test, recipe_eng_skip_outcome, outcomes = TRUE)$outcomes
# Notice that the `outcome` values haven't been centered
# and are the same as before
head(penguin_test$bill_length_mm)
|
