rm straggling sdy

dajmcdon · dajmcdon · commit 2ce5daaa5a35 · 2025-01-28T21:48:31.000-08:00
diff --git a/R/growth_rate.R b/R/growth_rate.R
@@ -249,7 +249,7 @@ growth_rate <- function(
         )
         lam <- params$df
         which_lambda <- paste0("lambda_", lam)
-        f <- stats::predict(obj, newx = x0, which_lambda = which_lambda) * sdy
+        f <- stats::predict(obj, newx = x0, which_lambda = which_lambda)
       } else {
         obj <- trendfilter::trendfilter(
           y, x,

Original file line number	Diff line number	Diff line change
`@@ -249,7 +249,7 @@ growth_rate <- function(`
`249`	`249`	`)`
`250`	`250`	`lam <- params$df`
`251`	`251`	`which_lambda <- paste0("lambda_", lam)`
`252`		`- f <- stats::predict(obj, newx = x0, which_lambda = which_lambda) * sdy`
	`252`	`+ f <- stats::predict(obj, newx = x0, which_lambda = which_lambda)`
`253`	`253`	`} else {`
`254`	`254`	`obj <- trendfilter::trendfilter(`
`255`	`255`	`y, x,`