my_f <- adfeR::get_data_file('SP500.csv') df_SP500 <- readr::read_csv(my_f, col_types = readr::cols()) my_msg <- paste0('There are ', nrow(df_SP500), ' rows and ', ncol(df_SP500), ' columns in file ', basename(my_f)) message(my_msg) my_sol <- nrow(df_SP500)
my_answer <- adfeR::make_random_answers(my_sol) #check_answers(my_answers)
Use função adfeR::get_data_file
para acessar o arquivo SP500.csv
no repositório de dados do livro. Importe o conteúdo do arquivo no R com função readr::read_csv
. Quantas linhas existem no dataframe
resultante?
extype: num
exsolution: r my_sol
exname: "load csv"
exshuffle: TRUE
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.