例
3 つの説明因子変数を持つ数値従属変数に適合する線形回帰があります。各因子変数には 2 つの水準があります。
install.packages("robustbase")
install.packages("MASS")
require(robustbase)
require(MASS)
# Example data
data(npk)
df= npk[,-1]
str(df)
# 'data.frame': 24 obs. of 4 variables:
# $ N : Factor w/ 2 levels "0","1": 1 2 1 2 2 2 1 1 1 2 ...
# $ P : Factor w/ 2 levels "0","1": 2 2 1 1 1 2 1 2 2 2 ...
# $ K : Factor w/ 2 levels "0","1": 2 1 1 2 1 2 2 1 1 2 ...
# $ yield: num 49.5 62.8 46.8 57 59.8 58.5 55.5 56 62.8 55.8 ...
set.seed(0)
model <- lmrob(yield ~ N + P + K - 1, data= df)
仕事
オブジェクトの各係数の p 値にアクセスしたいと考えていmodel
ます。不必要なインターセプトを避けるために、私はすでに- 1
数式で使用しています。
summary(model)$coefficients
# Estimate Std. Error t value Pr(>|t|)
# N0 54.644672 2.400075 22.7678995 8.972084e-16
# N1 60.166737 1.966661 30.5933467 2.858276e-18
# P1 -1.059299 2.139443 -0.4951286 6.259053e-01
# K1 -3.905052 2.226012 -1.7542822 9.469295e-02
と のベースライン (参照) レベルが隠されているようですP
。K
質問
オブジェクトP0
のK0
係数としても p 値にアクセスするようにコードを変更するにはどうすればよいですか?model
注:実際の問題で堅牢な回帰関数として実際に使用しているソリューションに違いが生じるかどうかはわかりません。そのlmrob
ため、この再現可能な例でそれを維持することにしました。