Based on presentation from: http://ase.uva.nl/binaries/content/assets/subsites/amsterdam-school-of-economics/r-in-insurance/webster-risk-adjustment-in-r.pdf
1) install.packages("devtools") if not already installed 2) install cmshcc package using: devtools::install_github("healthactuary/cmshcc") 3) load the cmshcc package using library(cmshcc) 4) generate a sample PERSON data frame or use your own with same format: PERSON <- generate_PERSON() 5) load the CMS-HCC diagnosis code to HCC mapping: cmshcc_map <- load_cmshcc_map() 6) create a diagnosis data frame using mapping or use your own data with same format: DIAG <- generate_DIAG(cmshcc_map) 7) Evaluate the 2017 V22 CMS-HCC models: Community_NonDual_Aged = evaluate_v22_2017(PERSON, DIAG, "Community_NonDual_Aged") Community_NonDual_Disabled = evaluate_v22_2017(PERSON, DIAG, "Community_NonDual_Disabled") Community_FBDual_Aged = evaluate_v22_2017(PERSON, DIAG, "Community_FBDual_Aged") Community_FBDual_Disabled = evaluate_v22_2017(PERSON, DIAG, "Community_FBDual_Disabled") Community_PBDual_Aged = evaluate_v22_2017(PERSON, DIAG, "Community_PBDual_Aged") Community_PBDual_Disabled = evaluate_v22_2017(PERSON, DIAG, "Community_PBDual_Disabled") Institutional = evaluate_v22_2017(PERSON, DIAG, "Institutional")
Bind together results in one dataframe if preferable:
results <- cbind(Community_NonDual_Aged, Community_NonDual_Disabled, Community_FBDual_Aged, Community_FBDual_Disabled, Community_PBDual_Aged, Community_PBDual_Disabled, Institutional)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.