fix time.R