Pooled cohort equation 으로 10년 간의 심뇌혈관질환의 발병 위험도를 예측하는 공식을 R function 으로 구현하였습니다. ## Pooled cohort equation: implementing pooled cohort equation ## AR10 (ten-year absolute risk) = 1 – S^exp(XB – meanXB) ## S = survival rate at 10 yrs ## women and men, white ## gender M:1, F:2 ## bpl = BP lowering treatment, untreated or treated: 0 or 1 ## Reference: ## 2013 ACC/AHA Guideline on the Assessment of Cardiovascular Risk ## A Report of the American College of Cardiology/American Heart ## Association Task Force on Practice Guidelines ## Circulation. 2014;129[suppl 2]:S49-S73 pce