partial match issue

pd · pd · commit f38a026add7a · 2026-02-13T13:23:35.000Z
git-svn-id: https://svn.r-project.org/R/trunk@89414 00db46b3-68df-0310-9c12-caf00c1e9a41
diff --git a/src/library/stats/R/lm.influence.R b/src/library/stats/R/lm.influence.R
@@ -242,7 +242,7 @@ dffits.lm <- function(model, infl = lm.influence(model, do.coef=FALSE),
 dffits.glm <- function(model, infl = lm.influence(model, do.coef=FALSE),
 		   res = weighted.residuals(model), ...)
 {
-    if (estDisp(model$fam))
+    if (estDisp(model$family))
         res <- res * sqrt(infl$hat)/(infl$sigma*(1-infl$hat))
     else
         res <- res * sqrt(infl$hat)/(sigma(model)*(1-infl$hat))

Original file line number	Diff line number	Diff line change
`@@ -242,7 +242,7 @@ dffits.lm <- function(model, infl = lm.influence(model, do.coef=FALSE),`
`242`	`242`	`dffits.glm <- function(model, infl = lm.influence(model, do.coef=FALSE),`
`243`	`243`	`res = weighted.residuals(model), ...)`
`244`	`244`	`{`
`245`		`- if (estDisp(model$fam))`
	`245`	`+ if (estDisp(model$family))`
`246`	`246`	`res <- res * sqrt(infl$hat)/(infl$sigma*(1-infl$hat))`
`247`	`247`	`else`
`248`	`248`	`res <- res * sqrt(infl$hat)/(sigma(model)*(1-infl$hat))`