1

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

と のベースライン (参照) レベルが隠されているようですPK

質問

オブジェクトP0K0係数としても p 値にアクセスするようにコードを変更するにはどうすればよいですか?model

注:実際の問題で堅牢な回帰関数として実際に使用しているソリューションに違いが生じるかどうかはわかりません。そのlmrobため、この再現可能な例でそれを維持することにしました。

4

1 に答える 1