minor improvements

R/AnsariBradley.R

@@ -89,4 +89,4 @@ AnsariBradley <- R6Class(
             private$.p_value <- get_p_continous(z, "norm", private$.side)
         }
     )
-)
+)

R/Friedman.R

@@ -65,4 +65,4 @@ Friedman <- R6Class(
             )
         }
     )
-)
+)

R/KolmogorovSmirnov.R

@@ -48,4 +48,4 @@ KolmogorovSmirnov <- R6Class(
             private$.side <- "r"
         }
     )
-)
+)

R/Page.R

@@ -64,4 +64,4 @@ Page <- R6Class(
             private$.p_value <- get_p_continous(z, "norm", private$.side)
         }
     )
-)
+)

R/RCBDOneWay.R

@@ -69,5 +69,4 @@ RCBDOneWay <- R6Class(
             )
         }
     )
-)
-
+)

R/do_call.R

@@ -27,4 +27,4 @@ do_call <- function(func, default = list(), fixed = list(), ...) {
     # All arguments will be evaluated within the `args` environment.
     # https://stackoverflow.com/a/25371509/23137996
     eval(as.call(c(func, lapply(`names<-`(...args, ...args), as.name))), args)
-}
+}

R/pmt.R

@@ -164,8 +164,8 @@ pmts <- function(
 #' rcpp <- define_pmt(
 #'     inherit = "twosample", n_permu = 1e5,
 #'     statistic = "[](const auto& x, const auto& y) {
-#'         auto m = x.size();
-#'         auto n = y.size();
+#'         auto m = x.length();
+#'         auto n = y.length();
 #'         return [=](const auto& x, const auto& y) {
 #'             return sum(x) / m - sum(y) / n;
 #'         };
@@ -176,9 +176,9 @@ pmts <- function(
 #' # rcpp <- define_pmt(
 #' #     inherit = "twosample", n_permu = 1e5,
 #' #     statistic = "[](const NumericVector& x, const NumericVector& y) {
-#' #         R_xlen_t m = x.size();
-#' #         R_xlen_t n = y.size();
-#' #         return [=](const NumericVector& x, const NumericVector& y) -> double {
+#' #         R_xlen_t m = x.length();
+#' #         R_xlen_t n = y.length();
+#' #         return [m, n](const NumericVector& x, const NumericVector& y) -> double {
 #' #             return sum(x) / m - sum(y) / n;
 #' #         };
 #' #     }"

inst/include/pmt/permutation.hpp

@@ -50,19 +50,19 @@ double n_permutation(T first, T last)
 }
 
 template <typename T>
-auto random_shuffle(T& v)
+auto random_shuffle(T&& v)
 {
     return random_shuffle(v.begin(), v.end());
 }
 
 template <typename T>
-auto next_permutation(T& v)
+auto next_permutation(T&& v)
 {
     return next_permutation(v.begin(), v.end());
 }
 
 template <typename T>
-auto n_permutation(const T& v)
+auto n_permutation(T&& v)
 {
     return n_permutation(v.begin(), v.end());
 }