add parallel to vector functions

RfastOfficial · Jul 10, 2023 · 5bc90bc · 5bc90bc
1 parent 747beec
commit 5bc90bc
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 9 deletions.
diff --git a/R/Quantile.R b/R/Quantile.R
@@ -1,22 +1,22 @@
-#[export]
-Quantile <- function(x, probs) {
-  .Call(Rfast2_Quantile, x, probs)
+# [export]
+Quantile <- function(x, probs, parallel = FALSE) {
+  .Call(Rfast2_Quantile, x, probs, parallel)
 }
 
-#[export]
+# [export]
 rowQuantile <- function(x, probs, parallel = FALSE, cores = 0) {
   .Call(Rfast2_rowQuantile, x, probs, parallel, cores)
 }
 
-#[export s3]
+# [export s3]
 colQuantile.data.frame <- function(x, probs, parallel = FALSE, cores = 0) {
   .Call(Rfast2_colQuantile, x, probs, parallel, cores)
 }
-#[export]
+# [export]
 colQuantile <- function(x, probs, parallel = FALSE, cores = 0) {
   UseMethod("colQuantile")
 }
-#[export s3]
+# [export s3]
 colQuantile.matrix <- function(x, probs, parallel = FALSE, cores = 0) {
   .Call(Rfast2_colQuantile, x, probs, parallel, cores)
 }
diff --git a/R/trim.mean.R b/R/trim.mean.R
@@ -1,6 +1,6 @@
 #[export]
-trim.mean <- function(x, a = 0.05) {
-  .Call(Rfast2_trimmean, x, a)
+trim.mean <- function(x, a = 0.05, parallel = FALSE) {
+  .Call(Rfast2_trimmean, x, a, parallel)
 }
 
 #[export]