Was only use of "n" (unlike Polynomial) since we pass nD and dD, so s…

…ave one call and variable allocation/initialization.
aadler · Feb 26, 2024 · ccf5866 · ccf5866
1 parent da6559d
commit ccf5866
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/R/RemezRational.R b/R/RemezRational.R
@@ -3,8 +3,7 @@
 
 # Function to create augmented Vandermonde matrix for rational approximation.
 ratMat <- function(x, E, y, nD, dD, relErr, basis) {
-  n <- length(x)
-  altSgn <- (-1) ^ (seq_len(n) - 1L)
+  altSgn <- (-1) ^ (seq_along(x) - 1L)
   # For relative error, need to weight the E by f(x).
   if (relErr) altSgn <- altSgn * y
   altE <- altSgn * E