fix(growth_rate): single_lambda check

brookslogan · brookslogan · commit 8c9228551eab · 2025-01-28T11:38:25.000-08:00
diff --git a/R/growth_rate.R b/R/growth_rate.R
@@ -260,7 +260,7 @@ growth_rate <- function(
           nlambda = params$nlambda, lambda_max = params$lambda_max,
           lambda_min = params$lambda_min, lambda_min_ratio = params$lambda_min_ratio
         )
-        single_lambda <- length(obj$lambda == 1L)
+        single_lambda <- length(obj$lambda) == 1L
         lam <- ifelse(single_lambda, obj$lambda, obj$lambda[which.min(abs(params$df - obj$dof))])
         f <- stats::predict(obj, newx = x0, lambda = lam) * sdy
       }

Original file line number	Diff line number	Diff line change
`@@ -260,7 +260,7 @@ growth_rate <- function(`
`260`	`260`	`nlambda = params$nlambda, lambda_max = params$lambda_max,`
`261`	`261`	`lambda_min = params$lambda_min, lambda_min_ratio = params$lambda_min_ratio`
`262`	`262`	`)`
`263`		`- single_lambda <- length(obj$lambda == 1L)`
	`263`	`+ single_lambda <- length(obj$lambda) == 1L`
`264`	`264`	`lam <- ifelse(single_lambda, obj$lambda, obj$lambda[which.min(abs(params$df - obj$dof))])`
`265`	`265`	`f <- stats::predict(obj, newx = x0, lambda = lam) * sdy`
`266`	`266`	`}`