TCGA中吸烟史定义

• Lifelong Non-smoker (less than 100 cigarettes smoked in Lifetime) = 1:从未吸烟
• Current smoker (includes daily smokers and non-daily smokers or occasional smokers) = 2：当前吸烟（包括规律吸烟者和偶尔吸烟者）
• Current reformed smoker for > 15 years (greater than 15 years) = 3：戒烟>15年
• Current reformed smoker for ≤15 years (less than or equal to 15 years) = 4：戒烟<15年
• Current reformed smoker, duration not specified = 5：戒烟，戒烟时间不详
• Smoker at Diagnosis = 6：确诊时吸烟
• Smoking History not documented = 7：不详

这个吸烟史无法从index的临床信息拿到，只能从patient下获取:

cli.query <- GDCquery(project =c("TCGA-LUAD","TCGA-LUSC"),
                  file.type = "xml",
                  data.category = "Clinical") 
GDCdownload(cli.query)
cli <- GDCprepare_clinic(cli.query, clinical.info = "patient")
save(cli,file="./rdata/cli.rda")
cli$tobacco_smoking_history