In msperlin/afedR: Data and Functions for Book "Analyzing Financial and Economical Data with R"

my_link <- 'https://www.gutenberg.org/ebooks/2264.txt.utf-8'

my_book <- readr::read_lines(my_link)

# solution
full_text <- paste0(my_book, collapse = '\n')
my_sol <- stringr::str_count(full_text, stringr::fixed('King'))

my_answers <- make_random_answers(my_sol)

#check_answers(my_answers)

Question

Bind the vector of characters in my_book into a single object called full_text using command paste0(my_book, collapse = '\n'. Using the stringr package, how many times is the word 'King' repeated throughout the text?

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

Solution

Meta-information

extype: num exsolution: r my_sol exname: "pride and prejudice" exshuffle: TRUE

msperlin/afedR documentation built on Sept. 11, 2022, 9:49 a.m.