2797 résultats trouvés

Aller à la recherche avancée

par Logez Maxime
20 Juil 2018, 18:28
Forum : Questions en cours
Sujet : Concours estival
Réponses : 15
Vues : 148

Re: Concours estival

Bonjour,

C'est carrément autorisé si tu mets tout ton code.
L'idée c'était aussi de partager nos différentes méthodes a partir de R ou nos idées même les plus loufoques parce que sûrement intéressante dans un autre contexte.

On attend ton code pour se faire décoiffer :)

Maxime
par Logez Maxime
19 Juil 2018, 15:10
Forum : Questions en cours
Sujet : Concours estival
Réponses : 15
Vues : 148

Re: Concours estival

re, Pour la parallélisation en ligne j'ai essayé avec le package doSNOW et foreach (pour un exemple reproductible aussi sous Windows) et ma fois c'est une catastrophe dans un cas comme celui-là : require(doSNOW) cl <- makeSOCKcluster(5) registerDoSNOW(cl) microbenchmark( foreach(i=iter(dta, "ro...
par Logez Maxime
19 Juil 2018, 09:37
Forum : Questions en cours
Sujet : Concours estival
Réponses : 15
Vues : 148

Re: Concours estival

Bonjour, mes propositions : set.seed(198) dta <- as.data.frame(matrix(rnorm(1e6), 1e3)) fun <- function(x) { res <- numeric(nrow(x)) for (i in seq_len(ncol(x))) { res <- res + x[[i]] } res } fun <- compiler:::cmpfun(fun) # pas nécessaire dans les dernières version de R déjà fait fun(dta) fun2 <- fun...
par Logez Maxime
18 Juil 2018, 08:24
Forum : Questions en cours
Sujet : Concours estival
Réponses : 15
Vues : 148

Re: Concours estival

Bonjour, Effectivement sous windows ça ne fonctionne pas, mais on peut utiliser makePSOCKcluster à la place et lancer les calculs via parLapply et compagnie ou via foreach. Çà reste de toute manière plus lent. Après pour évaluer le temps de calcul d'une parallélisation c'est un peu compliqué parce q...
par Logez Maxime
17 Juil 2018, 13:52
Forum : Questions en cours
Sujet : Concours estival
Réponses : 15
Vues : 148

Re: Concours estival

Arff mon idée de départ était de faire la somme en ligne (et pas la somme des lignes), l'équivalent d'un rowSums et non en colonne. Selon le sens les méthodes les plus optimales changent ... Mais on peut envisager les deux. Je trouve intéressant de montrer que dans un cas comme celui-ci ou le temps ...
par Logez Maxime
17 Juil 2018, 12:26
Forum : Questions en cours
Sujet : Concours estival
Réponses : 15
Vues : 148

Re: Concours estival

re,

presque il s'agissait de la somme en lignes et non en colonne mais le principe y est !
Une autre proposition ?

Maxime
par Logez Maxime
17 Juil 2018, 09:10
Forum : Questions en cours
Sujet : Concours estival
Réponses : 15
Vues : 148

Concours estival

Bonjour à tous, Pour "s'amuser" un peu je vous propose un petit concours. On part tous de l'objet suivant : set.seed(198) dta <- as.data.frame(matrix(rnorm(1e6), 1e3)) Et on essaye de calculer le plus rapidement possible la somme en ligne. L'arbitre étant la fonction microbenchmark du pack...
par Logez Maxime
16 Juil 2018, 15:54
Forum : Questions en cours
Sujet : tout afficher
Réponses : 5
Vues : 66

Re: tout afficher

Bonjour, la question est trop vague. Chaque objet est affiché dans la console en fonction d'une fonction qui lui est propre (print.classe). Du coup selon les objets l'affichages change. Après il y a aussi les paramètres généraux (?options) qui te permettent de spécifier par exemple le nombre de déci...
par Logez Maxime
16 Juil 2018, 08:40
Forum : Questions en cours
Sujet : Automatiser des calculs de Ch2
Réponses : 13
Vues : 114

Re: Automatiser des calculs de Ch2

Bonjour, Une autre possibilité avec la fonction gather du package tidyr : tmp <- gather(eth2, "vars", "values", -(1:4)) xtabs(values ~ inter + vars + categorie + actions, tmp) Si les levels des différents facteurs correspondent aux différentes modalités que tu souhaites croiser a...
par Logez Maxime
11 Juil 2018, 14:21
Forum : Questions en cours
Sujet : Cours algorithmique + R
Réponses : 4
Vues : 55

Re: Cours algorithmique + R

Bonjour,

je ne sais pas si c'est pour débutant mais j'aime bien ces deux la :
the art of r programming
r in a nutshell

Cordialement,
Maxime
par Logez Maxime
10 Juil 2018, 09:49
Forum : Questions en cours
Sujet : Savoir le nombre de "mots" dans une modalité d'une variable sans répétition
Réponses : 3
Vues : 70

Re: Savoir le nombre de "mots" dans une modalité d'une variable sans répétition

Bonjour, Une possibilité : tab <- structure(list(Individus = 1:8, Var1 = structure(c(1L, 4L, 1L, 5L, 3L, 6L, 7L, 2L), .Label = c("A", "A, B, C", "A, B, D", "B", "C", "D, G", "E, F"), class = "factor")), .Names = c("...
par Logez Maxime
10 Juil 2018, 09:38
Forum : Questions en cours
Sujet : Changement des étiquettes d'axe
Réponses : 2
Vues : 75

Re: Changement des étiquettes d'axe

Bonjour, Deux possibilités soient avec les fonctions graphiques de base soit avec ggplot2. Les deux font appel à des logiques différentes. Dans le cas des fonctions de base tu peux faire une boucle par exemple, mais le plus simple je pense c'est d'obtenir un format de données en 'largeur', avec pour...
par Logez Maxime
09 Juil 2018, 08:17
Forum : Questions en cours
Sujet : Étudier similitudes à l'intérieur de sous-groupes
Réponses : 9
Vues : 89

Re: Étudier similitudes à l'intérieur de sous-groupes

Bonjour,

une alternative :

Code : Tout sélectionner

fun <- function (x)
{
    u <- unique(x)
    if (length(u) > 1.5)
        u <- "Diff"
    u
}

aggregate(as.character(Vote) ~ Groupe, dta, fun)
Cordialement,
Maxime
par Logez Maxime
04 Juil 2018, 09:47
Forum : Questions en cours
Sujet : matrice de corrélation
Réponses : 5
Vues : 100

Re: matrice de corrélation

Bonjour, @ Serge : sans vouloir faire de polémiques on pourrait te répondre ceci : https://fr.wikipedia.org/wiki/N%C3%A9tiquette#Principes_g%C3%A9n%C3%A9raux Ou que personne n'oblige personne à répondre aux questions, et qu'en plus celle-ci est bien cohérente avec les objectifs du forum bien que mal...
par Logez Maxime
28 Juin 2018, 15:19
Forum : Questions en cours
Sujet : Echelle du graphique dans Rstudio
Réponses : 5
Vues : 64

Re: Echelle du graphique dans Rstudio

re, en définissant toi même les axes. D'une part dans la fonction hist tu lui spécifies de ne pas tracer les axes et ensuite avec la fonction axis tu les traces avec les options que tu souhaites : hist(indiv_primipares$PV, main="brebis primipares", ylab="nombre d'enregistrement",...

Aller à la recherche avancée