Sys.Date()
hoje <- Sys.Date()
class(hoje)
copa.70 <- "21/06/70"
copa.70 <- as.Date(copa.70,format="%d/%m/%y")
hoje <- as.Date(hoje,format="%d/%m/%y")
hoje - copa.70
dif <- (hoje - copa.70)
outrodia <- "05/05/14"
outrodia <- as.Date(outrodia,format="%d/%m/%y")