set.seed(7) x <- sample (1:3, size = 5, replace = T) y <- sample (1:3, size = 5, replace = T) # solution my_sol <- sum(x*y)
my_answers <- make_random_answers(my_sol) #check_answers(my_answers)
Considere os seguintes os vetores x e y:
set.seed(7) x <- sample (1:3, size = 5, replace = T) y <- sample (1:3, size = 5, replace = T)
Qual é a soma dos elementos de um novo vetor resultante da multiplicação entre os elementos de x
e y
?
exams::answerlist(my_answers, markup = "markdown")
extype: num
exsolution: r my_sol
exname: "numeric 02"
exshuffle: TRUE
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.