#criando o objeto
hoje = Sys.Date()

#descobrindo a classe
class(hoje) #classe é 'Date'

#data do tricampeonato é 21/06/1970
tri = "21/06/70"
tricamp = as.Date(tri, format="%d/%m/%y")

#diferença
dif = hoje-tricamp
dif #16715 dias

#outrodia
outrodia = hoje + 43
outrodia #08/05/2016