Code : Tout sélectionner
as.integer(substr("13/05/2021", 7, 10))
Code : Tout sélectionner
vitesse - lag(vitesse)
Code : Tout sélectionner
vitesse - c(NA, head(vitesse, -1))
#> [1] NA 0.5 0.2 -0.4 1.7 6.1 -8.1 0.8 -0.8 5.0
Code : Tout sélectionner
data1$X3 <- ifelse(data1$X1 %in% data2$X2, data1$X1, "non présent")