alarm clock

making a alarm clock in R via this function