J'ai fusionné ton code avec mon code.
Ça se fait parfaitement bien.
Tu me diras si je peux pusher du coup .
En testant par contre ya une erreur qui vient de getLRGeneSignatures
signed est pas defini : renvoi NULL
signed <- infParam(obj)$signed
Dc la suite bug
for (i in seq_len(nrow(pairs))){
tg <- t.genes[[i]]
stop()
if (signed)
t.genes[[i]] <- tg[pairs$rank[i]:length(tg)]
else{
corr <- tg.corr[[i]]
o <- order(corr**2)
t.genes[[i]] <- tg[o][pairs$rank[i]:length(tg)]
}
}
J'ai fusionné ton code avec mon code. Ça se fait parfaitement bien. Tu me diras si je peux pusher du coup . En testant par contre ya une erreur qui vient de getLRGeneSignatures
signed est pas defini : renvoi NULL signed <- infParam(obj)$signed
Dc la suite bug