From f56473c43fc7f21aa6795200d73a0103062f80d1 Mon Sep 17 00:00:00 2001 From: Holger Brandl Date: Fri, 26 Jan 2018 14:18:35 +0100 Subject: [PATCH] commented out example plots --- R/stats/ci_commons.R | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/R/stats/ci_commons.R b/R/stats/ci_commons.R index ec0cbf4..fb0e265 100644 --- a/R/stats/ci_commons.R +++ b/R/stats/ci_commons.R @@ -1,11 +1,11 @@ # requires if(!exists("load_pack")){ -devtools::source_url("https://raw.githubusercontent.com/holgerbrandl/datautils/v1.45/R/core_commons.R") +devtools::source_url("https://raw.githubusercontent.com/holgerbrandl/datautils/v1.46/R/core_commons.R") } if(!exists("multiplot")){ -devtools::source_url("https://raw.githubusercontent.com/holgerbrandl/datautils/v1.45/R/ggplot_commons.R") +devtools::source_url("https://raw.githubusercontent.com/holgerbrandl/datautils/v1.46/R/ggplot_commons.R") } calc_ci = function(df, variable, ci_interval=0.95){ @@ -26,8 +26,8 @@ calc_ci = function(df, variable, ci_interval=0.95){ ) %>% select(-c(mean, sd, N, se, mean)) } -iris %>% group_by(Species) %>% calc_ci(Sepal.Length) -iris %>% group_by(Species, Sepal.Width>3) %>% calc_ci(Sepal.Length) +# iris %>% group_by(Species) %>% calc_ci(Sepal.Length) +# iris %>% group_by(Species, Sepal.Width>3) %>% calc_ci(Sepal.Length) #' now with plotting -- GitLab