Je vous écris car je dois avouer ne pas savoir trop comment monter une fonction qui me permettra d'extraire certaine donnée de plusieurs modèles que j'ai fait rouler.
Je m'explique, je veux faire de l'inférence multimodale mais pour cela je dois aller récupérer le n, LL, K, SE et estimate dans 8 modeles différents.
Par exemple pour mon modele 1, je dois aller récupérer les informations suivantes :
Code : Tout sélectionner
"n"=mod1$results$n, "LL"=mod1$results$lnl*(-1), "K"=mod1$results$npar, "SE[1]"= mod1$results$real$se[1], "SE[2]"=mod1$results$real$se[2], "Estimate[1]"=mod1$results$real$estimate[1], "Estimate[2]"=mod1$results$real$estimate[2]
J'ai essaye cette commande :
Code : Tout sélectionner
Mod.real <-apply(Cand.models.124ind, FUN = function(i) {subset(i, c("n"= i$results$n, "LL"=i$results$lnl*(-1), "K"=i$results$npar, "SE[1]"= i$results$real$se[1], "SE[2]"=i$results$real$se[2], "Estimate[1]"=i$results$real$estimate[1], "Estimate[2]"=i$results$real$estimate[2]))})
ou Cand.models.124ind = liste de mes modeles
Il me met ensuite le message d'erreur suivant : Error in apply(Cand.models.124ind, FUN = function(i) { :
dim(X) doit avoir un longueur positive
Malheureusement je comprends que j'ai une erreur mais je ne vois pas trop quoi modifier ^^
Merci d'avance pour vos commentaires et votre aide