Modérateur : Groupe des modérateurs
Code : Tout sélectionner
lapply(final,function(x) x[[2]])
Code : Tout sélectionner
test <- lapply(final,function(x) x[[2]])
test <- lapply(test,function(x) t(x))
test <- as.data.frame(test)
test <- t(test)
Code : Tout sélectionner
test <- lapply(final,function(x) x[[2]])
final2 <- NULL
for (i in 1:length(test)){
final2 <- rbind(final2,test[[i]])
}
Code : Tout sélectionner
> Liste <- list(matrix(1:4, ncol = 2), matrix(5:10, ncol = 2))
> Liste
[[1]]
[,1] [,2]
[1,] 1 3
[2,] 2 4
[[2]]
[,1] [,2]
[1,] 5 8
[2,] 6 9
[3,] 7 10
> do.call("rbind", Liste)
[,1] [,2]
[1,] 1 3
[2,] 2 4
[3,] 5 8
[4,] 6 9
[5,] 7 10
lapply(final,function(x) x[[2]])
Code : Tout sélectionner
lapply( final, "[[", 2)
Code : Tout sélectionner
do.call(rbind, lapply( final, "[[", 2) )
Retourner vers « Questions en cours »
Utilisateurs parcourant ce forum : Aucun utilisateur enregistré et 1 invité