# NOT RUN {
df <- data.frame(`...1` = c("Excel Report", NA, NA, NA),
`...2` = c(NA, "X", "x_1", "x_2"),
`...3` = c(NA, "Y", "y_1", "y_2"),
`...4` = c(NA, "Z", "z_1", "z_2"))
extract_data(df)
# }
Run the code above in your browser using DataLab