b_day <- as.Date('2000-05-12')
n_years <- 100

b_day_vec <- seq(b_day, b_day + n_years*365, by = '1 year')

w_days <- weekdays(b_day_vec)

n_weekend <- sum(w_days %in% c('Saturday', 'Sunday'))

# solution
my_sol <- n_weekend
my_answers <- make_random_answers(my_sol)

#check_answers(my_answers)

Question

Assumindo que uma pessoa nascida em r b_day irás viver for r n_years anos, qual é o número de dias de aniversário que cairão em um final de semana (sábado ou domingo)? Dica: use operador %in% para checar uma condição múltipla nos dados.

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

Solution


Meta-information

extype: num exsolution: r my_sol exname: "dates" exshuffle: TRUE



msperlin/adfeR documentation built on March 26, 2021, 3:05 a.m.