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)
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")
extype: num
exsolution: r my_sol
exname: "dates"
exshuffle: TRUE
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.