🐞 Fix: syntax

wleoncio · wleoncio · commit f8934934cdab · 2026-01-02T13:47:46.000+01:00
diff --git a/R/internal-functions-samr-adapted.R b/R/internal-functions-samr-adapted.R
@@ -907,7 +907,7 @@ getperms <- function(y, nperms) {
   if (total.perms > nperms) {
     perms <- matrix(NA, nrow = nperms, ncol = length(y))
     for (i in 1:nperms) {
-      perms[i, ] <- sample(seq_along(y)), size = length(y)
+      perms[i, ] <- sample(seq_along(y), size = length(y))
     }
     all.perms.flag <- 0
     nperms.act <- nperms

Original file line number	Diff line number	Diff line change
`@@ -907,7 +907,7 @@ getperms <- function(y, nperms) {`
`907`	`907`	`if (total.perms > nperms) {`
`908`	`908`	`perms <- matrix(NA, nrow = nperms, ncol = length(y))`
`909`	`909`	`for (i in 1:nperms) {`
`910`		`- perms[i, ] <- sample(seq_along(y)), size = length(y)`
	`910`	`+ perms[i, ] <- sample(seq_along(y), size = length(y))`
`911`	`911`	`}`
`912`	`912`	`all.perms.flag <- 0`
`913`	`913`	`nperms.act <- nperms`