0

dose.p を使用して、glm モデル (プロビット モデル) から EDx (ED50 など) データを計算しました。

glm.logit <- glm(cbind(nok,nges-nok) ~ log(dosis), family=binomial(lk), data=edx.data)
r <- dose.p(glm.logit,p=seq(0.1,0.9,0.2))

r は次のとおりです。

             Dose         SE
p = 0.1: 0.866650 0.10578072
p = 0.3: 1.301613 0.06405342
p = 0.5: 1.574622 0.05168480
p = 0.7: 1.847632 0.05971840
p = 0.9: 2.282595 0.09898567

exp(r) は正しい EDx を与えます:

> exp(r)
             Dose         SE
p = 0.1: 2.378928 0.10578072
p = 0.3: 3.675219 0.06405342
p = 0.5: 4.828918 0.05168480
p = 0.7: 6.344778 0.05971840
p = 0.9: 9.802082 0.09898567

しかし、EDx だけでなく信頼限界の下限と上限も計算できるように、すべての数値 (用量と SE) を抽出するにはどうすればよいでしょうか? 最後に、そのようなテーブルを計算したいと思います:

  p          Dose        Lower limit       Upper limit
0.1    exp(2.379)   exp(2.379-0.106)  exp(2.379+0.106)
0.2 ...

これらのデータを抽出しようとしましたが、エラー メッセージが表示されました。

> se <- r$SE
    Error in r$SE : $ operator is invalid for atomic vectors

事前にどうもありがとうございました

キリスト教徒

4

1 に答える 1