Bonjour,
Pouvez vous m'aider s'il vous plait?
je dispose d'une base de données avec les colonnes:
data$Datfin <-2018-03-13# correspondant à la date de fin d'étude
data$d_date# date de décès (pour les patients décédés)
data$dernouv_d# date des dernières nouvelles (pour les patients perdus de vue)
data$suivaut_d# date de la dernière visite( pour les patients suivis ailleurs)
j'aimerais remplacé la date de fin d'étude soit :
par la date de décès si le patient est décédé;
par la date des dernières nouvelles si le patient est perdu de vue
ou par la date de dernière visite si le patient est suivis ailleurs.
J'ai écris le code ci-dessous mais ça ne marche pas ça me donne les dates en valeurs numériques sauf pour les patient toujours suivis(datfin=2018-03-13)
coivi mon code:
data$Datfin <-2018-03-13
data$Datfin<-as.Date(as.character(data$Datfin),format = "%d/%m/%Y")
data$Datfin<-ifelse(!is.na(as.Date(data$d_date)), data$d_date,
ifelse(!is.na(as.Date(data$dernouv_d)),(data$dernouv_d),
ifelse(!is.na(as.Date(data$suivaut_d)),(data$suivaut_d),"2018-03-13")))