set.seed(15)
my_char <- paste(sample(letters, 5000, replace = T), 
                 collapse = '')

# solution
my_sol <- str_count(my_char, 'x')
my_answers <- make_random_answers(my_sol)

#check_answers(my_answers)

Question

Crie o seguinte objeto com o código a seguir:

set.seed(15)
my_char <- paste(sample(letters, 5000, replace = T), 
                 collapse = '')

Qual a quantidade de vezes que a letra 'x' é encontrada no objeto de texto resultante?

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

Solution


Meta-information

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



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