sqrt fell out in rstandard

pd · pd · commit 6eee118374af · 2026-02-11T10:52:48.000Z
git-svn-id: https://svn.r-project.org/R/trunk@89398 00db46b3-68df-0310-9c12-caf00c1e9a41
diff --git a/src/library/stats/R/lm.influence.R b/src/library/stats/R/lm.influence.R
@@ -198,7 +198,7 @@ rstandard.glm <-
 {
  type <- match.arg(type)
  res <- switch(type, pearson = infl$pear.res, infl$dev.res)
- res <- res/(sigma(model) * (1 - infl$hat))
+ res <- res/(sigma(model) * sqrt(1 - infl$hat))
  res[is.infinite(res)] <- NaN
  res
 }

Original file line number	Diff line number	Diff line change
`@@ -198,7 +198,7 @@ rstandard.glm <-`
`198`	`198`	`{`
`199`	`199`	`type <- match.arg(type)`
`200`	`200`	`res <- switch(type, pearson = infl$pear.res, infl$dev.res)`
`201`		`- res <- res/(sigma(model) * (1 - infl$hat))`
	`201`	`+ res <- res/(sigma(model) * sqrt(1 - infl$hat))`
`202`	`202`	`res[is.infinite(res)] <- NaN`
`203`	`203`	`res`
`204`	`204`	`}`