my_file <- afedR::get_data_file('grunfeld.csv') df_grunfeld <- read_csv(my_file, col_types = cols()) # solution glimpse(df_grunfeld) my_sol <- nrow(df_grunfeld)
my_answers <- make_random_answers(my_sol) #check_answers(my_answers)
Use functions afedR::get_data_file
and readr::read_csv
to import data from the grunfeld.csv
file. Now, use function dplyr::glimpse
functions to find out the number of lines in the imported data. What is the number of rows in the imported table?
exams::answerlist(my_answers, markup = "markdown")
extype: num
exsolution: r my_sol
exname: "grunfeld"
exshuffle: TRUE
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.