small fix to previous commit

kasperdanielhansen · kasperdanielhansen · commit e8148fcbfd08 · 2026-01-14T16:26:37.000-05:00
diff --git a/R/BSmooth.tstat.R b/R/BSmooth.tstat.R
@@ -27,7 +27,7 @@ BSmooth.tstat <- function(BSseq, group1, group2, estimate.var = c("same", "paire
         } else {
             fit <- locfit(yy ~ lp(xx, h = 25000, deg = 2, nn = 0),
                           family = "huber", maxk = 50000)
-            correction <- predict(newdata = data.frame(xx = xx))
+            correction <- predict(fit, newdata = data.frame(xx = xx))
         }
         yy - correction
     }

Original file line number	Diff line number	Diff line change
`@@ -27,7 +27,7 @@ BSmooth.tstat <- function(BSseq, group1, group2, estimate.var = c("same", "paire`
`27`	`27`	`} else {`
`28`	`28`	`fit <- locfit(yy ~ lp(xx, h = 25000, deg = 2, nn = 0),`
`29`	`29`	`family = "huber", maxk = 50000)`
`30`		`- correction <- predict(newdata = data.frame(xx = xx))`
	`30`	`+ correction <- predict(fit, newdata = data.frame(xx = xx))`
`31`	`31`	`}`
`32`	`32`	`yy - correction`
`33`	`33`	`}`