export surd utility

Author: SpatLyu

R/RcppExports.R

@@ -69,7 +69,7 @@ RcppDiscSURD <- function(mat, max_order = 3L, threads = 1L, base = 2.0, normaliz
     .Call(`_infoxtr_RcppDiscSURD`, mat, max_order, threads, base, normalize)
 }
 
-RcppContSURD <- function(mat, max_order = 3L, k, alg, threads = 1L, base = 2.0, normalize = TRUE) {
+RcppContSURD <- function(mat, max_order = 3L, k = 3L, alg = 0L, threads = 1L, base = 2.0, normalize = TRUE) {
     .Call(`_infoxtr_RcppContSURD`, mat, max_order, k, alg, threads, base, normalize)
 }
 

src/InfotheoExps.cpp

@@ -607,13 +607,13 @@ Rcpp::List RcppContSURD(SEXP mat,
         static_cast<size_t>(std::abs(threads)), 
         base, normalize);
 
-    const size_t k = res.size();
+    const size_t n_vals = res.size();
 
-    Rcpp::NumericVector values(k);
-    Rcpp::CharacterVector types(k);
-    Rcpp::CharacterVector names(k);
+    Rcpp::NumericVector values(n_vals);
+    Rcpp::CharacterVector types(n_vals);
+    Rcpp::CharacterVector names(n_vals);
 
-    for (size_t i = 0; i < k; ++i)
+    for (size_t i = 0; i < n_vals; ++i)
     {
         values[i] = res.values[i];