add time analysis in R