Script em R que devolve o timestamp por dia