time_1 <- as.POSIXct('2021-02-02 11:50:02')
my_sec <- 10000

my_sol <- time_1 + my_sec
candidates <- time_1 + sample(-10000:10000, 500)

my_answers <- make_random_answers(my_sol, 
                                  candidates = candidates)

check_answers(my_answers)

Question

What date and time is found r my_sec seconds after r time_1?

exams::answerlist(my_answers, markup = "markdown")

Solution


Meta-information

extype: schoice exsolution: r mchoice2string(c(TRUE, FALSE, FALSE, FALSE, FALSE), single = TRUE) exname: dates 3 exshuffle: TRUE



msperlin/afedR documentation built on Sept. 11, 2022, 9:49 a.m.