592 résultats trouvés

Aller à la recherche avancée

par Gabriel Terraz
16 Mai 2019, 07:59
Forum : Questions en cours
Sujet : Sélectionner n valeurs consécutives d'une colonne
Réponses : 7
Vues : 1514

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

Je suis pas sur du comportement que tu veux observer. Selon : Sois tu supprimes toutes les lignes qui contiennt NC dans Resultts df2 <- df[df$Results ! = "NC", ] Ou tu transformes tes NC en 1 : df$Results[df$Results == "NC"] <- "1" J'ai bon ?
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 : 1514

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 : 907

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 : 449

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 : 866

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 : 866

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 : 1329

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 : 1038

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 : 614

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 : 4971

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 : 1888

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 : 981

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 : 4358

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 : 4358

Re: test d'homoscédasticité

Salut,

Un test F avec var.test par exemple

Aller à la recherche avancée