---
# System prepended metadata

title: un test hors tidy

---

# un test hors tidy

C'est plus simple pour partager du code. L'exemple est pe trop simple il faut sans doute le complexifier un peu.  

Ici je trouve plus simple de sortir du format tidy mais je suis curieux de solution tidy ! 

```r=

## jeu de données bidon
dates <- as.Date(c(
    "2000-01-01",
    "2005-01-01",
    "2004-01-01",
    "2004-02-01",
    "2007-01-01"
))

DF <- data.frame(id = c(1,2,3,3,4),
                 type_avc = c("A", "A","A","B","B"),
                 date = dates)

# on repasse en format wide pour avoir une date pour chaque type d'avc
DF_wide <- reshape(DF, 
                   idvar = "id", 
                   timevar = "type_avc",
                   direction = "wide")

# R base date est pas super sexy mais cela passe on va être en jour

DF_wide$diff <- as.numeric(difftime(DF_wide$date.B, 
                                    DF_wide$date.A))

ma_duree <- 90

DF_wide$id[DF_wide$diff < ma_duree]

## il reste à fonctionnaliser pour que cela soit plus lisible

```