hoje <- Sys.Date()
class(hoje)
copa.70 <- "1970-06-21"
copa.70 <- as.Date(copa.70, fotmat= "1970/06/21")
hoje - copa.70
dif <- (hoje - copa.70)
hoje + 43
outrodia <- (hoje + 43)