Groupe des utilisateurs du logiciel R

Bonjour, Les fonctions *apply sont souvent plus élégantes mais pas systématiquement plus rapides. Dans ma solution, j'ai recours à as.data.frame() et t() qui prennent du temps. Il y a sûrement moyen d'optimiser cette partie. Est-ce plus rapide avec purrr::map2(X, as.data.frame(t(F)), ord) Ensuite, v...

Pardon j'ai mal lu.
Donc on peut utiliser mapply (une variante de apply) qui permet de parcourir en parallèle plusieurs arguments. Ici, X et les colonnes de F transposé en data.frame.

À regarder simplement le résultat (et pas l'intérieur de la boucle), j'ai l'impression que la fonction replicate pourrait vous être utile :

( Par contre la méthode de Logez ne répond pas à ma question --> ce code a agrégé tous mes numéros d'observations, du coup je n'ai qu'une ligne par n° d'observation, il n'y a pas de distinction date & n°observation. ) Il faut ajouter Date à group_by dans la méthode de Maxime et ça devrait march...

Bonjour, Avec depart en données initiales : library(dplyr) group_depart <- depart %>% group_by(Date, N.obs) superf <- group_depart %>% summarise_at(vars( Superf), sum) autres <- group_depart %>% summarise_at(vars(-Superf), first) res <- full_join(superf, autres, by = c("Date", "N.obs&...

J'ai fais exactement la même chose avec mon jeu de données et je me confronte au message suivant : " Error in mutate_impl(.data, dots) : Evaluation error: argument 'times' incorrect. " (ton exemple fonctionne parfaitement ; je ne sais pas si c'est important mais j'ai oublié de mentionner ...

Bonjour, Une solution avec les colonnes suivantes dans les données de départ : ⋅ MA = nombre de mâles adultes ⋅ FA = nombre de femelles adultes ⋅ ME = nombre de mâles non adultes ⋅ FE = nombre de femelles non adultes depart <- data.frame( Seance = as.character...

Bonjour,

C'était presque ça :

C'est le but. ;-)

edit : solution (si aucun nombre négatif dans le tableau)

Bien souvent, les boucles dans R ne sont pas obligatoires.

En complément de mon message précédent, je vous donne un autre indice par cet exemple fictif :

Bonjour, Ce ne serait pas vous rendre service de faire votre devoir à votre place alors je me contente de vous donner une solution partielle. Essayez d'exécuter le code suivant et de voir à quoi il peut vous servir : colSums(tab) != 0 rowSums(tab) != 0 PS : rowSums(tab) et colSums(tab) sont des vers...

Encore plus simple que dans le plus simple des mondes :

Il y a avait une erreur dans mon précédent message ; j'ai édité.

Une fois qu'on a le rang dans tab1, on peut créer une autre fonction qui récupère les rangs supérieurs à une "espèce" (au sens de tab1) donnée : categ_sup <- function(chaine, rang) { if (is.na(rang)) return(rep(NA, 6)) # première ligne contenant chaine dans tab2 n <- which(tab2[[rang]] == ...

n'est-il pas possible d'avoir dans la "tab1", une colonne indiquant ce qui se trouve dans "espèces"? On a pensé à la même chose, Mickael : rang <- function(chaine) { for (nm in names(tab2)) if (chaine %in% tab2[[nm]]) return(nm) NA } tab1$Rang <- sapply(tab1$Especes, rang) PS: n...