Fix a typo

cvxgrp · Feb 3, 2023 · 8fc3a6e · 8fc3a6e
1 parent 25bf633
commit 8fc3a6e
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/elementwise.R b/R/elementwise.R
@@ -814,7 +814,7 @@ Power <- function(x, p, max_denom = 1024) { .Power(x = x, p = p, max_denom = max
 
 setMethod("initialize", "Power", function(.Object, ..., x, p, max_denom = 1024, w = NA_real_, approx_error = NA_real_) {
   p_old <- p
-  if(len(p) != 1)
+  if(length(p) != 1)
     stop("p must be a numeric scalar")
   if(is.na(p) || is.null(p))
     stop("p cannot be NA or NULL")