fix

stla · Apr 29, 2024 · 689f864 · 689f864
1 parent 52cd55e
commit 689f864
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/R/transformation.R b/R/transformation.R
@@ -269,7 +269,9 @@ changeParameters <- function(Qspray, newParameters) {
   newCoeffs <- lapply(coeffs, function(rOQ) {
     changeVariables(rOQ, newParameters)
   })
-  toKeep <- which(newCoeffs != 0L)
+  toKeep <- vapply(newCoeffs, function(rOQ) {
+    rOQ != 0L
+  }, logical(1L))
   new(
     "symbolicQspray",
     powers = Qspray@powers[toKeep],