#' load_stock_data
#' @description loads stock data for use in program
#' @return the stock data
#' @importFrom system file
#' @importFrom readr read_csv
#' @export
load_stock_data <- function(){
target_path = system.file('extdata', 'stock_data.csv', package = 'StepRegression')
return(readr::read_csv(target_path))
}
#' stock_data
#' @docType data
#' @author Christopher Pearson
#' @note located in /inst/extdata/stock_data.rda
#' @references Data originally retrieved from https://www.kaggle.com/dgawlik/nyse
#' @keywords data
'stock_data'
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.