Sys.sleep(1)
library(GetBCBData) id_series <- '433' first_date <- '2010-01-01' last_date <- '2020-12-31' df_ipca <- gbcbd_get_series(id = id_series, first.date = first_date, last.date = last_date, use.memoise = FALSE) my_sol <- df_ipca$ref.date[which.max(df_ipca$value)]
possible_answers <- df_ipca$ref.date my_answers <- make_random_answers(my_sol, possible_answers) #check_answers(my_answers)
Utilize pacote GetBCBData
para baixar dados do IPCA mensal entre r first_date
e r last_date
. Para os dados importados, qual é a data com o maior valor mensal de inflação?
exams::answerlist(my_answers, markup = "markdown")
extype: schoice
exsolution: r mchoice2string(c(TRUE, FALSE, FALSE, FALSE, FALSE), single = TRUE)
exname: "bcb"
exshuffle: TRUE
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.