Skip to content

Commit 9d69563

Browse files
committed
Avoid partial matching of se
1 parent 212e364 commit 9d69563

File tree

1 file changed

+3
-3
lines changed

1 file changed

+3
-3
lines changed

R/stat-smooth-methods.r

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -32,9 +32,9 @@ predictdf.glm <- function(model, xseq, se, level) {
3232
data.frame(
3333
x = xseq,
3434
y = model$family$linkinv(as.vector(pred$fit)),
35-
ymin = model$family$linkinv(as.vector(pred$fit - std * pred$se)),
36-
ymax = model$family$linkinv(as.vector(pred$fit + std * pred$se)),
37-
se = as.vector(pred$se)
35+
ymin = model$family$linkinv(as.vector(pred$fit - std * pred$se.fit)),
36+
ymax = model$family$linkinv(as.vector(pred$fit + std * pred$se.fit)),
37+
se = as.vector(pred$se.fit)
3838
)
3939
} else {
4040
data.frame(x = xseq, y = model$family$linkinv(as.vector(pred)))

0 commit comments

Comments
 (0)