# NOT RUN {
# First extract the data from the local spreadsheet
# }
# NOT RUN {
wpi <- extract_abs_sheets("634501.xls")
# }
# NOT RUN {
# Then tidy the data extracted from the spreadsheet. Note that
# \code{extract_abs_sheets()} returns a list of data frames, so we need to
# subset the list.
# }
# NOT RUN {
tidy_wpi <- tidy_abs(wpi[[1]])
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab