Discussion :

[bob747]

Bonjour,

Je souhaite créer une nouvelle variable nommée eruptionsnew à partir d'une variable existante nommée eruptions. eruptionsnew ne prendra en compte que les eruptions de plus de 3 minutes. Cette étude prend part dans le cadre d'une analyse sur les geysers, leurs durées et leurs temps d'attente.

Voila le code de l'analyse :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
require(stats); require(graphics)
f.tit <-  "faithful data: Eruptions of Old Faithful"
 
ne60 <- round(e60 <- 60 * faithful$eruptions)
all.equal(e60, ne60)             # relative diff. ~ 1/10000
table(zapsmall(abs(e60 - ne60))) # 0, 0.02 or 0.04
faithful$better.eruptions <- ne60 / 60
te <- table(ne60)
te[te >= 4]                      # (too) many multiples of 5 !
plot(names(te), te, type="h", main = f.tit, xlab = "Eruption time (sec)")
 
 
X11 (); plot(faithful[, -3], main = f.tit,
     xlab = "Eruption time (min)",
     ylab = "Waiting time to next eruption (min)")
lines(lowess(faithful$eruptions, faithful$waiting, f = 2/3, iter = 3),
      col = "red")

J'ai testé différentes choses mais rien n'a réellement fonctionné.
Merci par avance de votre aide.

[Guinue]

Bonjour,

Avez-vous essayé la fonction which ?
Elle pourrait s'appliquer ainsi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
eruptionnew <- votre_table_de_données[which(eruption>3),"eruption"]

Avec ceci vous ne sélectionnez dans votre table que les lignes pour lesquelles la variable éruption remplit votre condition, si vous spécifiez la colonne vous ne conservez que cette colonne (ici la colonne "eruption") sinon, si vous ne spécifiez rien, toute la ligne est retenue.

Reste à connaitre la forme sous laquelle votre variable eruption est stockée pour pouvoir établir la bonne condition.

En espérant vous avoir éclairé,

A bientôt

[MMDM12]

Bonjour,
Tu peux essayer peut etre ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
aEliminer <- erruption[erruption<3] # contient un vecteur logique, qui vaut TRUE lorsque erruption[i]<3
erruptionnew <- erruption[!aEliminer] # toutes les valeurs sauf celles inferieur à 3