# First extract the data from the local spreadsheet
if (FALSE) {
wpi <- extract_abs_sheets("634501.xls")
}
# 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.
if (FALSE) {
tidy_wpi <- tidy_abs(wpi[[1]])
}
Run the code above in your browser using DataLab