@@ -37,9 +37,10 @@ mod_plot(iris_mod_1) %>% gf_theme(legend.position = "top")
3737mod_plot(iris_mod_2 , class_level = " setosa" ) %> %
3838 gf_theme(legend.position = " top" )
3939
40- # # ----fig.out="40%", fig.keep = "hold", eval = FALSE----------------------
41- # mod_plot(iris_mod_2, ~ Petal.Length + Petal.Width) %>% gf_theme(legend.position = "top")
42- # mod_plot(iris_mod_2, ~ Petal.Length + Petal.Width + Sepal.Width) %>% gf_theme(legend.position = "top")
40+ # # ----fig.out="40%", fig.keep = "hold"------------------------------------
41+ mod_plot(iris_mod_2 , ~ Petal.Length + Petal.Width ) %> % gf_theme(legend.position = " top" )
42+ mod_plot(iris_mod_2 , ~ Petal.Length + Petal.Width + Sepal.Width ) %> %
43+ gf_theme(legend.position = " top" )
4344
4445# # ------------------------------------------------------------------------
4546mod_eval(fuel_mod_1 , transmission = " manual" , hp = 200 )
@@ -64,19 +65,19 @@ mod_effect(fuel_mod_2, ~ hp, nlevels = 3)
6465# # ------------------------------------------------------------------------
6566mod_effect(fuel_mod_2 , ~ hp , step = 0.1 , nlevels = 1 )
6667
67- # # ----eval = FALSE --------------------------------------------------------
68- # mod_effect(iris_mod_2, ~ Sepal.Length, step = 0.01, class_level = "virginica" )
69- # mod_effect(iris_mod_2, ~ Sepal.Length, step = 1, class_level = "virginica")
68+ # # ---------------- --------------------------------------------------------
69+ mod_effect(iris_mod_2 , ~ Sepal.Length , step = 0.01 , class_level = " virginica" )
70+ mod_effect(iris_mod_2 , ~ Sepal.Length , step = 1 , class_level = " virginica" )
7071
7172# # ------------------------------------------------------------------------
7273mod_error(fuel_mod_2 )
7374
7475# # ------------------------------------------------------------------------
7576mod_error(fuel_mod_2 , testdata = mtcars [1 : 10 ,])
7677
77- # # ----eval=FALSE ----------------------------------------------------------
78- # mod_error(iris_mod_2, error_type = "class_error")
79- # mod_error(iris_mod_2, error_type = "LL")
78+ # # -------------- ----------------------------------------------------------
79+ mod_error(iris_mod_2 , error_type = " class_error" )
80+ mod_error(iris_mod_2 , error_type = " LL" )
8081
8182# # ------------------------------------------------------------------------
8283ensemble_fuel_1 <- mod_ensemble(fuel_mod_1 , nreps = 10 )
@@ -112,7 +113,7 @@ data_from_mod(my_mod) %>% head(2)
112113# # ----error = TRUE--------------------------------------------------------
113114construct_fitting_call(my_mod , data_name = " placeholder" )
114115
115- # # ----eval = FALSE--------------------------------------------------------
116+ # # ----eval= FALSE-- --------------------------------------------------------
116117# mod_eval_fun(my_mod)
117118
118119# # ------------------------------------------------------------------------
0 commit comments