Glen_b가 제안한 간단한 t- 검정 또는보다 일반적인 Wald 검정을 사용할 수 있습니다.
Wald 검정은 여러 모수에서 여러 가설을 검정 할 수 있습니다. :이로 제형 R을 선택하는 (조합) 계수, Q는,에 대해 테스트 될 수있는 값을 나타낸다 여기서 β 표준 regresison 계수 인.R β= qβ
예를 들어, 하나의 모수에 가설이 하나만있는 경우 R은 행 매개 변수로, 해당 모수에 대한 값이 1이고 다른 곳에서는 0이며 q는 테스트 제한이있는 스칼라입니다.
R에서는 package car의 linearHypothesis () 함수를 사용하여 Wald 테스트를 실행할 수 있습니다 . hypothesis.matrix 인수로 표시되는 두 번째 계수 가 0.1 (인수 rhs )과 다른지 확인하고 싶다고 가정 해 보겠습니다 .
reg <- lm(freeny)
coef(reg)
# wald test for lag.quarterly.revenue =0.1
>library(car)
>linearHypothesis(reg, hypothesis.matrix = c(0, 1, rep(0,3)), rhs=0.1)
#skip some result, look at last value on last row, of Pr(>F)
Res.Df RSS Df Sum of Sq F Pr(>F)
1 35 0.0073811
2 34 0.0073750 1 6.0936e-06 0.0281 0.8679
t- 검정의 경우이 함수는 Glen_b가 표시 한 t- 검정을 구현합니다.
ttest <- function(reg, coefnum, val){
co <- coef(summary(reg))
tstat <- (co[coefnum,1]-val)/co[coefnum,2]
2 * pt(abs(tstat), reg$df.residual, lower.tail = FALSE)
}
> ttest(reg, 2,0.1)
[1] 0.8678848
두 번째 계수가 0이라는 표준 가설에 대해 Wald, t- 검정 및 R 기본 t- 검정을 비교하여 올바른 절차를 얻었는지 확인하십시오.
> linearHypothesis(reg, hypothesis.matrix = c(0, 1, rep(0,3)), rhs=0)[["Pr(>F)"]][2]
[1] 0.3904361
> ttest(reg, 2,0)
[1] 0.3904361
## The 'right' answer from R:
> coef(summary(reg))[2,4]
[1] 0.3904361
세 가지 절차로 동일한 결과를 얻을 수 있습니다.