Returns either Vandermonde or Chebyshev based on passed basis parameter.

aadler · May 12, 2024 · f47a8f1 · f47a8f1
1 parent f15c52f
commit f47a8f1
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 2 deletions.
diff --git a/R/RemezPolynomial.R b/R/RemezPolynomial.R
@@ -1,7 +1,8 @@
 # Copyright Avraham Adler (c) 2023
 # SPDX-License-Identifier: MPL-2.0+
 
-# Function to create augmented Vandermonde matrix for polynomial approximation.
+# Function to create augmented Vandermonde or Chebyshev matrix for polynomial
+# approximation.
 polyMat <- function(x, y, relErr, basis) {
   n <- length(x)
   matFunc <- switch(EXPR = basis, m = vanderMat, chebMat)

diff --git a/R/RemezRational.R b/R/RemezRational.R
@@ -1,7 +1,8 @@
 # Copyright Avraham Adler (c) 2023
 # SPDX-License-Identifier: MPL-2.0+
 
-# Function to create augmented Vandermonde matrix for rational approximation.
+# Function to create augmented Vandermonde or Chebyshev matrix for rational
+# approximation.
 ratMat <- function(x, E, y, nD, dD, relErr, basis) {
   altSgn <- (-1) ^ (seq_along(x) - 1L)
   # For relative error, need to weight the E by f(x).