591 résultats trouvés

Aller à la recherche avancée

par Gabriel Terraz
15 Mai 2019, 19:12
Forum : Questions en cours
Sujet : Sélectionner n valeurs consécutives d'une colonne
Réponses : 7
Vues : 1445

Re: Sélectionner n valeurs consécutives d'une colonne

Bonjour,

Une idée :

Code : Tout sélectionner

rl <- rle(paste(df$ID,df$Results, sep = "_"))

sup8 <- rl$values[rl$lengths >= 8]
sup8_1 <- grep("_1$", sup8, value = T)
sub("_1$","",sup8_1)
[1] "13_4" "C_6"
par Gabriel Terraz
07 Mai 2019, 18:11
Forum : Questions en cours
Sujet : Compter certaines occurrences seulement
Réponses : 3
Vues : 874

Re: Compter certaines occurrences seulement

Si les trial à compter ne sont que les valeurs 1, on peut grandement simplifier :

Code : Tout sélectionner

dta_tr <- dta[, grep("Trial", names(dta))]
rowSums(dta_tr == "1", na.rm =T)
par Gabriel Terraz
23 Avr 2019, 18:07
Forum : Questions en cours
Sujet : Intervalle de confiances des colonnes de plusieurs matrice stocké dans une liste
Réponses : 2
Vues : 433

Re: Intervalle de confiances des colonnes de plusieurs matrice stocké dans une liste

Salut,

Voici une petite idée :

## Une liste de matrices
l <- replicate(3, matrix(rnorm(15),ncol = 3), simplify = F)

## Et un apply dans un lapply :
lapply(l, function(i) apply(i,2, function(j) t.test(j)$conf.int))
par Gabriel Terraz
26 Fév 2019, 19:02
Forum : Questions en cours
Sujet : Diagramme à barre horizontale comme support visuel de couches de neige
Réponses : 5
Vues : 824

Re: Diagramme à barre horizontale comme support visuel de couches de neige

Salut, Avec une simple modif : J'ai ajouté les titres des axes aussi par(mar = c(5,5,4,5)) barplot(matrix(tab$epaisseur), yaxt = "n") axis(2, at = c(0,cumsum(tab$epaisseur))) axis(4, at = c(0,cumsum(tab$epaisseur)), label = round(c(0,cumsum(tab$CI)))) mtext(side = 4, las = 3, "Titre a...
par Gabriel Terraz
25 Fév 2019, 19:25
Forum : Questions en cours
Sujet : Diagramme à barre horizontale comme support visuel de couches de neige
Réponses : 5
Vues : 824

Re: Diagramme à barre horizontale comme support visuel de couches de neige

Salut,

Pour commencer :

Code : Tout sélectionner

par(mar = c(5,4,4,4))
barplot(matrix(tab$epaisseur), yaxt = "n")
axis(2, at = cumsum(tab$epaisseur))
axis(4, at = cumsum(tab$epaisseur), label = round(cumsum(tab$CI)))
par Gabriel Terraz
20 Fév 2019, 17:44
Forum : Questions en cours
Sujet : Erreur pour exécution d'un s.class (package ade4)
Réponses : 1
Vues : 1299

Re: Erreur pour exécution d'un s.class (package ade4)

Bonjour, C'est un problème lié au fait d'exclure des lignes contenant des NA. Le facteur groupe ne fait donc pas la même longueur que le tableau initial. df <- data.frame(grp = rep(1:2, each =7), a = rnorm(14), b = rnorm(14), c = rnorm(14)) df[2,3] <- NA pca <- dudi.pca(na.omit(df[,-1]), nf = 2, sca...
par Gabriel Terraz
27 Déc 2018, 20:54
Forum : Questions en cours
Sujet : Compter les fermetures d'une moule
Réponses : 6
Vues : 992

Re: Compter les fermetures d'une moule

Tu dois pouvoir simplifier encore :

Code : Tout sélectionner

sum(rle(x < 10)$values)
par Gabriel Terraz
13 Juil 2018, 15:45
Forum : Questions en cours
Sujet : Grille de points
Réponses : 1
Vues : 597

Re: Grille de points

Salut,
J'ai bien peur de ne pas comprendre ce que vous voulez faire. Et je ne pense pas être le seul :)
par Gabriel Terraz
21 Mai 2018, 16:20
Forum : Questions en cours
Sujet : calcul de distance entre deux dataframe de localisation gps
Réponses : 6
Vues : 4900

Re: calcul de distance entre deux dataframe de localisation gps

Salut,

Quelque chose de très simple peut-être :

Code : Tout sélectionner

sqrt((df2$x - df1$x)^2 + (df2$y - df1$y)^2)
par Gabriel Terraz
10 Avr 2018, 16:20
Forum : Questions en cours
Sujet : Boucle et création d'une nouvelle colonne
Réponses : 3
Vues : 1862

Re: Boucle et création d'une nouvelle colonne

Salut, Tu peux faire quelque chose comme ça : D'abord tu crées une colonne vide que tu initialises avec la valeur de ton choix (j'ai pris "Succes" car cela permet de faire une seule manip pour transformer en échec certaines valeur), puis tu changes les valeurs qui valident la condition vou...
par Gabriel Terraz
27 Mar 2018, 17:03
Forum : Questions en cours
Sujet : créer un vecteur filtre
Réponses : 2
Vues : 954

Re: créer un vecteur filtre

Salut, Voici un exemple avec un extrait du jeu de données iris : df <- structure(list(Sepal.Length = c(4.8, 5.7, 6.9, 5.7, 5.7, 6, 4.8, 5.6, 5, 5.5, 6.7, 5.1, 6.2, 5, 5.2), Sepal.Width = c(3, 4.4, 3.2, 2.6, 2.8, 3.4, 3.1, 2.9, 3.3, 3.5, 3.3, 3.4, 2.2, 3.5, 2.7 ), Petal.Length = c(1.4, 1.5, 5.7, 3.5,...
par Gabriel Terraz
05 Mar 2018, 12:05
Forum : Questions en cours
Sujet : [RESOLU] test d'homoscédasticité
Réponses : 7
Vues : 4311

Re: test d'homoscédasticité

Je pensais que tu cherchais un simple teste de variance, je ne connais pas les spécificité de ce test.
Qu'un package ne soit plus maintenue ne m'étonne pas. Une rapide recherche montre que la package lmtest est utilisé.

Désolé, je ne peux pas plus t'aider !
par Gabriel Terraz
05 Mar 2018, 08:37
Forum : Questions en cours
Sujet : [RESOLU] test d'homoscédasticité
Réponses : 7
Vues : 4311

Re: test d'homoscédasticité

Salut,

Un test F avec var.test par exemple
par Gabriel Terraz
06 Jan 2018, 09:28
Forum : Questions en cours
Sujet : Problème plot
Réponses : 3
Vues : 1523

Re: Problème plot

Salut,
Ta variable journée est sous forme de facteur, lors de l'appel à la fonction plot R te fait donc un magnifique boxplot !

Pour t'en convaincre :

Code : Tout sélectionner

df <- data.frame(a = as.factor(1:5), b = rnorm(5))
plot(df$a, df$b)

Aller à la recherche avancée