Rの完全にベクトル化された関数からサブセット化する。

Question

私はVectorize D "メイン" 機能を書かれている以下のlistの3つのオブジェクト：BF10、p.valueとd。

bようなオブジェクトとして「メイン」関数呼び出しを保存WHYときに私は思ったんだけど（が下記参照）、その後、私はbからBF10、p.valueまたはdをサブセットではありませんか？

I私が実行したときに、主な機能を実行した後、次のとおりです。

b = BF.d.pvalue(t = c(2.46, 3.21), n1 = c(20, 30), n2 = c(20, NA)) 
b$BF10 ; b$p.value ; b$d ## None of these return anything !!! 

ここでは、 "メイン" 関数である：

BF.d.pvalue = Vectorize(function(t, n1, n2 = NA, scale = sqrt(2)/2){ 

     options(warn = -1) 
     N = ifelse(is.na(n2), n1, (n1*n2)/(n1+n2)) 
    df = ifelse(is.na(n2), n1 - 1, (n1 + n2) - 2) 
     d = t/sqrt(N) 

    H1 = integrate(function(delta)dcauchy(delta, 0, scale)*dt(t, df, delta*sqrt(N)), -Inf, Inf)[[1]] 
    H0 = dt(t, df) 
    BF10 = H1/H0 
p.value = 2*(1-pt(abs(t), df)) 

cbind(BF10 = BF10, p.value = p.value, d = d) 

}, vectorize.args = c("t", "n1", "n2", "scale")) 

Answer 1

mapplyは、デフォルトでは簡素化を行います。ここで結果はマトリックスに単純化されました。あなたがSIMPLIFY = FALSEを設定することができますが、あなたは

b["BF10", ] 
b["p.value", ] 
b["d", ] 

を行うことができますが、その結果は、ネストされたリストです。

あなたはどの程度

b <- data.frame(t(b)) 

あなたが $を使用することができ、リスト/データフレームのようなものを、必要な場合