Update utils.R

william-denault · william-denault · commit fdba52b3b66d · 2026-04-01T20:53:37.000+02:00
diff --git a/R/utils.R b/R/utils.R
@@ -61,7 +61,7 @@ shifter <- function(x, n = 1) {
 #' @importFrom stats qqnorm
 Quantile_transform  <- function(x)
 {
-
+  set.seed(1)
   x.rank = rank(x, ties.method="random")
   #x.rank = rank(x, ties.method="average")
   return(qqnorm(x.rank,plot.it = F)$x)

Original file line number	Diff line number	Diff line change
`@@ -61,7 +61,7 @@ shifter <- function(x, n = 1) {`
`61`	`61`	`#' @importFrom stats qqnorm`
`62`	`62`	`Quantile_transform <- function(x)`
`63`	`63`	`{`
`64`		`-`
	`64`	`+ set.seed(1)`
`65`	`65`	`x.rank = rank(x, ties.method="random")`
`66`	`66`	`#x.rank = rank(x, ties.method="average")`
`67`	`67`	`return(qqnorm(x.rank,plot.it = F)$x)`