"0","data_description_sheet <- read.csv(""data/data_description_sheet.csv"")"
"0","data_assumptions <- data_description_sheet[97:114, 1]"
"0","names(data_assumptions) <- ""List of Assumptions"""
"0","kable(data_assumptions, caption = ""Key data assumptions"")"
