knitr::opts_chunk$set(collapse = TRUE)
library(forcats) f1 <- factor(letters) f2 <- fct_relevel(f1, rev(letters)) f3 <- lvls_revalue(f1, rev(letters)) tutorial::go_interactive()
f1
no fator f2
.# Digite o código aqui
fct_relevel(f1, rev(letters))
test_output_contains("f2", incorrect_msg = "Tem certeza de que indicou a expressão corretamente?") success_msg("Correto!")
f1
no fator f3
.lvls_...
lvls_revalue(f1, rev(letters))
test_output_contains("f3", incorrect_msg = "Tem certeza de que indicou a expressão corretamente?") success_msg("Correto!")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.