2

分位点回帰 (パッケージquantreg) を実行texregしており、モデルのラテックス出力を作成するために使用しています。

ブートストラップされた se に興味があり、概要のオプションで se="boot" を設定しますが、texreg を使用すると "nid" se が表示されます

そのオプションを変更するにはどうすればよいですか?

これが私がやっていることです：

tm3 <- rq(nback ~ cara + mat + dut + e_brown + e_green + e_blue + ins_no + ins_1
          + ins_5 + lit + sci + lan + gender_f + partner,  
          tau = 0.75, data=tru_all, model=TRUE)
summary(tm3, se = "boot")
texreg(tm3)

texreg を調べてみた (コンソールで texreg と入力) と、35 ～ 38 行目で見つけた

for (i in 1:length(models)) {
cf <- models[[i]]@coef
se <- models[[i]]@se
pv <- models[[i]]@pvalues

se メソッドを設定するにはどうすればよいですか? 私は R 関数を変更したことがありません。それが必要な場合は、その方法を説明するリンクを提案できますか?

4

2 に答える 2

1

texreg ソースコードを更新しました。「...」引数を使用した提案は、次のリリースで実装する必要があります。さらに提案がある場合は、texreg フォーラムに投稿してください。

ベスト、フィリップ

于 2012-11-28T09:06:44.210 に答える
1

部分的な成功。私は S4 クラスにはあまり詳しくありませんが、パッケージ ソースをダウンロードし、to の最初の数行を編集することで、何かを機能させることができましextract.rqた。

extract.rq <- function(model, include.nobs=TRUE, include.percentile=TRUE,...) {
  co <- summary(model, cov=TRUE,...)$coef[,1]
  names <- rownames(summary(model, cov=TRUE,...)$coef)
  se <- summary(model, cov=TRUE,...)$coef[,2]
  pval <- summary(model, cov=TRUE,...)$coef[,4]

  n <- length(summary(model,...)$resid)
  tau <- summary(model,...)$tau

次に、次のように、変更されたソースからのパッケージのビルドとインストールが機能するように見えます。

library(quantreg)
library(texreg)
data(stackloss)
m <- rq(stack.loss ~ stack.x,.5)

texreg(m,se = "boot")
texreg(m,se = "iid")
于 2012-11-21T16:35:43.747 に答える