Je n'arrive pas à trouver de réponse à ma question.
Voici mon jeu de données.
Code : Tout sélectionner
| Year| Months| Days| Week|Milestones |Event_type | Acteur|date | ID|
|----:|------:|----:|----:|:-------------------------------------------|:----------|------:|:----------|--:|
| 2018| 4| 9| 15|Attaque ICCN 6 morts |Raid | 16|2018-04-09 | 1|
| 2018| 5| 11| 19|Attaque ICCN 1 mort 2 Kidnaping (touristes) |Raid | 16|2018-05-11 | 2|
| 2018| 5| 17| 20|Siege de la COPEVI brulé |Raid | 16|2018-05-17 | 3|
| 2018| 6| 19| 25|Accrochage ICCN MM Charles |Raid | 16|2018-06-19 | 4|
| 2018| 7| 16| 29|Jackson 2nd de charles par politiciens |Reunion | 16|2018-07-16 | 5|
| 2018| 9| 9| 36|Implication député KATENMBO avec MM Chanika |Evenement | 16|2018-09-09 | 6|
ma question est : "Je voudrais connaitre le nombre d'occurrences dans les 14 jours après chaque événement"
Pour cela j'ai créé une colonne qui me permet d'avoir une accumulation du nombre d'occurrences que je peux déduire de l'accumulation du nombre d'occurrences présente dans l'intervalle.
"Nombre d'occurrence cummuler dans l'interval (n+14,n) - nombre d'occurrence"
Ce que j'ai traduit en :
Code : Tout sélectionner
library(scales)
library(lubridate)
library(tidyverse)
library(timevis)
library(readxl)
library(xts)
library(dygraphs)
library(stringr)
library(tidyquant)
library(data.table)
Time$X=1
cs = cumsum(Time$X) # cumulative number of occurences
test<-data.frame(Time,
plus14 = cs[findInterval(Time$date +ddays(14), Time$date, left.open = TRUE)] - cs)
Mais cela ne calcule pas correctement l'intervale ( je suppose que le probleme viens du Time$date +ddays(14)) .
Car il me propose Time$date + ddays(14) = "2018-04-23" au lieu de 2018-05-03"
Si vous avez une idée,
Cordialement