Bonjour,
Je voudrais faire une fonction afin d'automatiser une analyse.
Le package assortnet possède la fonction suivante: assortment.discrete(M ,Y,weighted=TRUE) où M est un matrice (NxN) et Y un vecteur de longeur N. Cette fonction renvoie $r qui est le coefficient d'assortativité et $mixing_matrix qui est une matrice.
Je possède un tableau nommé R qui possède 100 colonnes de longueur N.
J'aimerais lancer assortment.discrete pour chacune de ces colonnes en tant que Y. J'ai fait cette fonction:
As[i] = NULL
for (i in 1:100)
{
R<-replicate (i,sample(SexVector))
As[i]<- assortment.discrete(Ago ,R[,i],weighted=TRUE)$r
}
Je n'obtiens aucun message d’erreur et bien des valeurs $r (excepté pour le premier résultat qui me renvoie une valeur $mixing_matrix).
Par contre si je calcule la moyenne sur ce vecteur j’obtiens le message d'erreur suivant:
In mean.default(As) : argument is not numeric or logical: returning NA
C'est la première fois que je tente ce genre d’opération j'aurais donc besoin d'un peu d'aide.
Je peux fournir ma matrice et mon tableau si cela peut aider.
Merci d'avance.
Sebastian