From 9233f1baa71188f52899c93f7151a4452fd37b34 Mon Sep 17 00:00:00 2001 From: Daniel Date: Thu, 23 May 2024 14:52:06 +0200 Subject: [PATCH] remove non-working example --- R/visualisation_recipe.estimate_means.R | 4 ---- R/visualisation_recipe.estimate_predicted.R | 5 ----- man/visualisation_recipe.estimate_predicted.Rd | 9 --------- 3 files changed, 18 deletions(-) diff --git a/R/visualisation_recipe.estimate_means.R b/R/visualisation_recipe.estimate_means.R index a85c0325..fb37734d 100644 --- a/R/visualisation_recipe.estimate_means.R +++ b/R/visualisation_recipe.estimate_means.R @@ -22,10 +22,6 @@ #' data$cyl <- as.factor(data$cyl) #' data$new_factor <- as.factor(rep(c("A", "B"), length.out = nrow(mtcars))) #' -#' model <- lm(mpg ~ new_factor * cyl * wt, data = data) -#' x <- estimate_means(model, by = c("new_factor", "cyl")) -#' plot(visualisation_recipe(x)) -#' #' # Modulations -------------- #' x <- estimate_means(model, by = c("new_factor", "wt")) #' plot(visualisation_recipe(x)) diff --git a/R/visualisation_recipe.estimate_predicted.R b/R/visualisation_recipe.estimate_predicted.R index e7617fe5..45d344f7 100644 --- a/R/visualisation_recipe.estimate_predicted.R +++ b/R/visualisation_recipe.estimate_predicted.R @@ -75,11 +75,6 @@ #' data$cyl <- as.factor(data$cyl) #' data$new_factor <- as.factor(rep(c("A", "B"), length.out = nrow(mtcars))) #' -#' # Numeric * numeric * numeric -#' x <- estimate_relation(lm(mpg ~ wt * qsec * hp, data = data), length = c(5, 3, 20)) -#' layers <- visualisation_recipe(x) -#' plot(layers) -#' #' # Numeric * numeric * factor #' x <- estimate_relation(lm(mpg ~ wt * am * vs, data = data)) #' layers <- visualisation_recipe(x) diff --git a/man/visualisation_recipe.estimate_predicted.Rd b/man/visualisation_recipe.estimate_predicted.Rd index aa64d71a..c9ce6596 100644 --- a/man/visualisation_recipe.estimate_predicted.Rd +++ b/man/visualisation_recipe.estimate_predicted.Rd @@ -123,10 +123,6 @@ data <- mtcars data$cyl <- as.factor(data$cyl) data$new_factor <- as.factor(rep(c("A", "B"), length.out = nrow(mtcars))) -model <- lm(mpg ~ new_factor * cyl * wt, data = data) -x <- estimate_means(model, by = c("new_factor", "cyl")) -plot(visualisation_recipe(x)) - # Modulations -------------- x <- estimate_means(model, by = c("new_factor", "wt")) plot(visualisation_recipe(x)) @@ -201,11 +197,6 @@ data$vs <- as.factor(data$vs) data$cyl <- as.factor(data$cyl) data$new_factor <- as.factor(rep(c("A", "B"), length.out = nrow(mtcars))) -# Numeric * numeric * numeric -x <- estimate_relation(lm(mpg ~ wt * qsec * hp, data = data), length = c(5, 3, 20)) -layers <- visualisation_recipe(x) -plot(layers) - # Numeric * numeric * factor x <- estimate_relation(lm(mpg ~ wt * am * vs, data = data)) layers <- visualisation_recipe(x)