type: <misc> message: <minor changes>

jasonmoy28 · Nov 17, 2023 · e1f43f0 · e1f43f0
1 parent e8c6c68
commit e1f43f0
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 3 deletions.
diff --git a/CRAN-SUBMISSION b/CRAN-SUBMISSION
@@ -0,0 +1,3 @@
+Version: 0.1.1
+Date: 2023-11-04 20:22:05 UTC
+SHA: 8b4e1e8f3cbd61aa241f584d4c593c9165b0f73b
diff --git a/tests/testthat/test-centering.R b/tests/testthat/test-centering.R
@@ -2,16 +2,16 @@ testthat::test_that('center_grand_mean', code = {
   test_df = tibble::tibble(x = 1:5, y = 10:14)
   centered_df = center_grand_mean(test_df,cols = everything())
   for (i in 1:length(centered_df$x)) {
-    expect_equal(centered_df$x_grand_c[i], test_df$x[i] - mean(test_df$x))
+    expect_equal(centered_df$x_c[i], test_df$x[i] - mean(test_df$x))
   }
 
   for (i in 1:length(centered_df$y)) {
-    expect_equal(centered_df$y_grand_c[i], test_df$y[i] - mean(test_df$y))
+    expect_equal(centered_df$y_c[i], test_df$y[i] - mean(test_df$y))
   }
 })
 
 testthat::test_that('z_scored_grand_mean', code = {
-  centered_col = z_scored_grand_mean(iris,cols = 'Sepal.Length') %>% dplyr::pull('Sepal.Length_grand_z')
+  centered_col = z_scored_grand_mean(iris,cols = 'Sepal.Length') %>% dplyr::pull('Sepal.Length_z')
   check_centered_col = scale(iris$Sepal.Length, center = TRUE,scale = TRUE) %>% as.numeric()
   testthat::expect_equal(centered_col,check_centered_col)
 })