Replaced if() conditions comparing class() to string with evaluations…

… using inherits()
CFWP · Oct 13, 2023 · 226f753 · 226f753
1 parent 2df3ca9
commit 226f753
Show file tree

Hide file tree

Showing 6 changed files with 137 additions and 143 deletions.
diff --git a/NEWS.md b/NEWS.md
@@ -5,6 +5,7 @@
 
 ## Adjustments:
   * Functions optPenaltyPchordal, ridgePchordal, ridgePsign, and support4ridgeP (temporarily) deprecated (for major adjustments)
+  * Replaced if() conditions comparing class() to string with evaluations using inherits()
 
 ## Documentation:
   * Fixed URLs.

diff --git a/R/RcppExports.R b/R/RcppExports.R
@@ -127,8 +127,6 @@ PNLL.fused <- function(Slist, Plist, ns, Tlist, lambda) {
 #' @param S A sample covariance \code{matrix}.
 #' @param target A \code{numeric} symmetric positive definite target
 #' \code{matrix} of the same size as \code{S}.
-#' @param alpha The diagonal value on the scalar target matrix. A \code{double}
-#' of length 1.
 #' @param lambda The ridge penalty. A \code{double} of length 1.
 #' @param invert An \code{integer}. Should the estimate be computed using
 #' inversion?  Permitted values are \code{0L}, \code{1L}, and \code{2L} meaning