# NOT RUN {
file <- system.file("extdata", "oildata.csv", package = "olr", mustWork = TRUE)
oildata <- read.csv(file, header = TRUE)
dataset <- oildata
responseName <- 'OilPrices'
predictorNames <- c('SP500', 'RigCount', 'API', 'Field_Production', 'OperableCapacity', 'Imports')
olr(dataset, responseName, predictorNames, adjr2 = TRUE)
# }
Run the code above in your browser using DataLab