rename some functions

R/JonckheereTerpstra.R

@@ -32,7 +32,7 @@ JonckheereTerpstra <- R6Class(
         .name = "Jonckheere-Terpstra Test",
 
         .define_statistic = function() {
-            k <- as.integer(last(names(private$.data)))
+            k <- as.integer(get_last(names(private$.data)))
             ij <- list(
                 i = c(lapply(seq_len(k - 1), seq_len), recursive = TRUE),
                 j = rep.int(seq_len(k)[-1], seq_len(k - 1))

R/KSampleTest.R

@@ -21,7 +21,7 @@ KSampleTest <- R6Class(
         .check = function() {},
 
         .feed = function(...) {
-            data <- data_to_list(...)
+            data <- get_data_from(...)
 
             private$.raw_data <- setNames(
                 c(data, recursive = TRUE, use.names = FALSE),
@@ -59,7 +59,7 @@ KSampleTest <- R6Class(
         },
 
         .calculate_score = function() {
-            private$.data <- score(private$.data, method = private$.scoring)
+            private$.data <- get_score(private$.data, method = private$.scoring)
         }
     )
 )

R/KruskalWallis.R

@@ -45,7 +45,7 @@ KruskalWallis <- R6Class(
         },
 
         .calculate_p = function() {
-            k <- as.integer(last(names(private$.data)))
+            k <- as.integer(get_last(names(private$.data)))
 
             private$.p_value <- get_p_continous(
                 private$.statistic, "chisq", "r", df = k - 1

R/MultipleComparison.R

@@ -72,7 +72,7 @@ MultipleComparison <- R6Class(
         },
 
         .define_statistic = function() {
-            k <- as.integer(last(names(private$.data)))
+            k <- as.integer(get_last(names(private$.data)))
             private$.ij <- ij <- list(
                 i = rep.int(seq_len(k - 1), seq.int(k - 1, 1)),
                 j = c(lapply(seq.int(2, k), seq.int, to = k), recursive = TRUE)

R/RCBD.R

@@ -19,7 +19,7 @@ RCBD <- R6Class(
         .check = function() {},
 
         .feed = function(...) {
-            data <- do.call(data.frame, data_to_list(...))
+            data <- do.call(data.frame, get_data_from(...))
 
             dim <- dim(data)
             rownames(data) <- paste0("treatment_", seq_len(dim[1]))
@@ -71,7 +71,7 @@ RCBD <- R6Class(
         .calculate_score = function() {
             private$.data <- do.call(
                 data.frame, lapply(
-                    X = private$.data, FUN = score,
+                    X = private$.data, FUN = get_score,
                     method = private$.scoring, n = nrow(private$.data)
                 )
             )

R/SignedScore.R

@@ -48,7 +48,7 @@ SignedScore <- R6Class(
                 diff <- diff[diff != 0]
             }
 
-            private$.score <- score(abs(diff), method = private$.scoring)
+            private$.score <- get_score(abs(diff), method = private$.scoring)
 
             private$.statistic_func <- function(
                 swapped, diff_positive = (diff > 0), score = private$.score

R/TwoSampleTest.R

@@ -19,7 +19,7 @@ TwoSampleTest <- R6Class(
         .check = function() {},
 
         .feed = function(...) {
-            private$.raw_data <- setNames(data_to_list(...), c("x", "y"))
+            private$.raw_data <- setNames(get_data_from(...), c("x", "y"))
         },
 
         .permute = function() {
@@ -52,7 +52,7 @@ TwoSampleTest <- R6Class(
         },
 
         .calculate_score = function() {
-            scores <- score(c(private$.data$x, private$.data$y), method = private$.scoring)
+            scores <- get_score(c(private$.data$x, private$.data$y), method = private$.scoring)
 
             x_index <- seq_along(private$.data$x)
             private$.data <- list(x = scores[x_index], y = scores[-x_index])

R/auxiliary_funcs.R

@@ -1,20 +1,19 @@
-last <- function(x) x[length(x)]
+get_last <- function(x) x[length(x)]
 
 # for .feed
 
-data_to_list <- function(...) {
+get_data_from <- function(...) {
     data <- list(...)
 
     if (length(data) == 1 & is.list(data[[1]])) {
         data <- data[[1]]
     }
-
     if (all(vapply(data, length, numeric(1)) >= 2)) data
 }
 
 # for .calculate_score
 
-score <- function(x, method, n = length(x)) {
+get_score <- function(x, method, n = length(x)) {
     rank <- rank(x)
 
     switch(method,