sous-ensemble d'une fonction entièrement vectorisée dans R?

Question

J'ai écrit la Vectorize d fonction "principale" ci-dessous qui list trois objets: BF10, p.value et d.

Je me demande pourquoi lors de l'enregistrement du « principal » appel de fonction comme un objet comme b (voir ci-dessous ), alors je ne peux pas sous-ensemble BF10, p.value ou d de b?

C'est, après l'exécution de la fonction principale, quand je quand je lance:

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 !!! 

Voici la fonction "principale":

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 ne fait simplification par défaut . Le résultat a été simplifié en une matrice. Vous pouvez le faire

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

Bien que vous pouvez définir SIMPLIFY = FALSE, mais le résultat est une liste imbriquée.

Si vous voulez quelque chose comme un cadre liste/données où vous pouvez utiliser $, que diriez-vous

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