Récupération de valeurs

Postez ici vos questions, réponses, commentaires ou suggestions - Les sujets seront ultérieurement répartis dans les archives par les modérateurs

Modérateur : Groupe des modérateurs

Miles François
Messages : 11
Enregistré le : 08 Mar 2019, 12:41

Récupération de valeurs

Messagepar Miles François » 27 Avr 2019, 20:43

Bonjour,
je me permets de re-re-poster un sujet similaire à ceux que j'avais posté sur ce forum :
http://forums.cirad.fr/logiciel-r/viewtopic.php?f=3&t=9594
Je n'ai pas trouvé de méthode pour récupérer certaines valeurs.
J'aimerais pouvoir récupérer les valeurs de chacun des "pics" (uniquement),
pour ensuite pouvoir observer leur variabilité avec un nuage de points.
Le graphique ci-dessous ne prend en compte que les 300 premières lignes.
Image

Je vous remercie par avance,
et remercie les personnes ayant déjà répondu aux posts précédents.

Mickael Canouil
Messages : 1315
Enregistré le : 04 Avr 2011, 08:53
Contact :

Re: Récupération de valeurs

Messagepar Mickael Canouil » 30 Avr 2019, 09:48

Bonjour,

La réponse est déjà donné (c'est en plein milieu), moyennant un minimum d'effort pour comprendre la fonction.
Il ne s'agit pas que de copier-coller du code.

Code : Tout sélectionner

find_cycle <- function(x, y) {
  dy <- diff(c(0, y))
  cut(
    x = x,
    breaks = c(min(x), which(dy > mean(dy) + 3 * sd(dy)), max(x)),
    include.lowest = TRUE,
    right = FALSE
  )
}


Code : Tout sélectionner

find_peak <- function(y) {
  dy <- diff(c(0, y))
  y[which(dy > mean(dy) + 3 * sd(dy))]
}


Cordialement,
Mickaël
mickael.canouil.fr | rlille.fr

Miles François
Messages : 11
Enregistré le : 08 Mar 2019, 12:41

Re: Récupération de valeurs

Messagepar Miles François » 30 Avr 2019, 10:21

Merci pour votre réponse.


Retourner vers « Questions en cours »

Qui est en ligne

Utilisateurs parcourant ce forum : Aucun utilisateur enregistré et 1 invité