version 0.4.5

cran · Dec 11, 2022 · a5f2684 · a5f2684
1 parent d88bf86
commit a5f2684
Show file tree

Hide file tree

Showing 5 changed files with 12 additions and 12 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: ggcorset
 Type: Package
 Title: The Corset Plot
-Version: 0.4.0
+Version: 0.4.5
 Author: Kyla Belisario
 Maintainer: Kyla Belisario <kyla_belisario@protonmail.com>
 Description: Corset plots are a visualization technique used strictly to visualize repeat measures 
@@ -21,6 +21,6 @@ RoxygenNote: 7.2.2
 Suggests: rmarkdown, knitr, viridis, MetBrewer
 VignetteBuilder: knitr
 NeedsCompilation: no
-Packaged: 2022-12-11 02:16:01 UTC; kyla
+Packaged: 2022-12-11 20:03:15 UTC; kyla
 Repository: CRAN
-Date/Publication: 2022-12-11 03:30:02 UTC
+Date/Publication: 2022-12-11 22:20:03 UTC
diff --git a/MD5 b/MD5
@@ -1,15 +1,15 @@
-26bbfed39f25fcbce823c3f90bd3b1d7 *DESCRIPTION
+8f8f8b0a1cd561a653281a103406f374 *DESCRIPTION
 1fcfae4844cb568b775335b275609d11 *LICENSE
 a406bc588db87dfbba630968849ab089 *NAMESPACE
 9753e382e198a937b1f0e8bff825edbd *R/drinkdays.R
-66164afff415780c43dedbae9ec95c76 *R/gg_corset.R
-7387f8d208b99ad2ef2fe5bf557a9482 *R/gg_corset_elongated.R
+096ca5ef36c67c3251311a49a54d18af *R/gg_corset.R
+8240cf1377d16caf9463be81763509db *R/gg_corset_elongated.R
 a97921e44510b1d57ce85d292ffb09ed *R/utils.R
 dc68d114330f4a706ba9a93b44f5d7ce *build/vignette.rds
 7203565e8cdf031b0129f2ab67255c27 *data/drinkdays.RData
 79e7dd20ecd6bd22e10d592d87ebc73b *inst/doc/corset_plot_intro.R
 be9049924c48578256ff4184d715046c *inst/doc/corset_plot_intro.Rmd
-7288e771317b02fb01fea3e7ab97b436 *inst/doc/corset_plot_intro.html
+799dd20c16b5caca68fc622a2ec4c5c5 *inst/doc/corset_plot_intro.html
 026e24a42ca777d27938d48aba91a424 *man/drinkdays.Rd
 811316312af04ce91a78735f271b6d73 *man/gg_corset.Rd
 4fc75a80a25e8e4803926f05037bbae3 *man/gg_corset_elongated.Rd

diff --git a/R/gg_corset.R b/R/gg_corset.R
@@ -104,7 +104,7 @@ gg_corset <- function(data, y_var1, y_var2, group, c_var, eyelets = FALSE, e_typ
       # calculating 1 standard deviation
       data.summ <- data.long %>% group_by(c_var, x_axis) %>%
         summarize(mean_y = mean(y, na.rm = TRUE),
-                  sd_se = sqrt(var(y[!is.na(y)])/length(y[!is.na(y)])))
+                  sd_se = sqrt(var(y,na.rm = T)))
     }
 
     # change to 0 if only 1 observation is present, as NAs will be produced for SE/ SD
@@ -267,7 +267,7 @@ gg_corset <- function(data, y_var1, y_var2, group, c_var, eyelets = FALSE, e_typ
     if(e_type=="SD"){
       data.summ <- data.long %>% group_by(c_var, x_axis) %>%
         summarize(mean_y = mean(y, na.rm = TRUE),
-                  sd_se = sqrt(var(y[!is.na(y)])/length(y[!is.na(y)])))
+                  sd_se = sqrt(var(y,na.rm = T)))
     }
 
     # change to 0 if only 1 observation is present, as NAs will be produced for SEM/ SD

diff --git a/R/gg_corset_elongated.R b/R/gg_corset_elongated.R
@@ -102,7 +102,7 @@ gg_corset_elongated <- function(data, x_var, x_vals, y_var, group, c_var, eyelet
       # calculating 1 standard deviation
       data.summ <- data %>% group_by(c_var, x_var) %>%
         summarize(mean_y = mean(y_var, na.rm = TRUE),
-                  sd_se = sqrt(var(y_var[!is.na(y_var)])/length(y_var[!is.na(y_var)])))
+                  sd_se = sqrt(var(y_var,na.rm = T)))
     }
 
     # change to 0 if only 1 observation is present, as NAs will be produced for SE/ SD
@@ -271,7 +271,7 @@ gg_corset_elongated <- function(data, x_var, x_vals, y_var, group, c_var, eyelet
       # calculating 1 standard deviation
       data.summ <- data %>% group_by(c_var, x_var) %>%
         summarize(mean_y = mean(y_var, na.rm = TRUE),
-                  sd_se = sqrt(var(y_var[!is.na(y_var)])/length(y_var[!is.na(y_var)])))
+                  sd_se = sqrt(var(y_var,na.rm = T)))
     }
 
     # change to 0 if only 1 observation is present, as NAs will be produced for SE/ SD

diff --git a/inst/doc/corset_plot_intro.html b/inst/doc/corset_plot_intro.html