hope<-read.csv("HOPE Date Order-Table 1.csv",header=TRUE)
# head(hope,12)
burial<-as.Date(hope$Burial.date, "%m/%d/%y")
# head(burial,14)
burial[1:11]<-gsub("20","19", burial[1:11])
# head(burial,12)
data<-data.frame(burial,hope$Sex,hope$Age)
# head(data)


year<-format(as.Date(data$burial, format="%d/%m/%Y"),"%Y")
# head(year)