View source: R/calculate_iga_risk_postbiopsy.R
calculate_iga_risk_postbiopsy | R Documentation |
Post-Biopsy Risk estimator for Kidney outcomes in patients with IgA Nephropathy, using the Oxford IgaN MEST Histology Score, estimated at a time-point 1 year after biopsy using the formulas in the manuscript by Barbour et al, Kidney International 2022. The calculations have been validated against an available online calculator at Calculate by QxMD. Note if Race does not fit into the categories of "Chinese", "Japanese", or "Caucasian" then it is recommended to use the race-free equation.
'calculate_iga_risk_postbiopsy()' is the full Race-based model 'calculate_iga_risk_postbiopsy_norace()' Provides an estimate when race is not known or if race is not well matched by Caucasian, Chinese, or Japanese race/ethnicity
calculate_iga_risk_postbiopsy(
egfr,
sbp,
dbp,
proteinuria,
age,
mest_M,
mest_E,
mest_S,
mest_T,
time = 60,
immunosuppression = FALSE,
RASB = TRUE,
race = "Caucasian",
explanation = FALSE
)
calculate_iga_risk_postbiopsy_norace(
egfr,
sbp,
dbp,
proteinuria,
age,
mest_M,
mest_E,
mest_S,
mest_T,
time = 60,
immunosuppression = FALSE,
RASB = TRUE,
explanation = FALSE
)
egfr |
estimated GFR (ml/min/1.73m2) |
sbp |
Systolic BP (mmHg) |
dbp |
Diastolic BP (mmHg) |
proteinuria |
Proteinuria (g/day) |
age |
Age (years) |
mest_M |
MEST score, Mesangial (M) hypercellularity (0,1) |
mest_E |
MEST score, Endocapillary (E) hypercellularity (0,1) |
mest_S |
MEST score, Segmental Sclerosis (0,1) |
mest_T |
MEST score, interstitial fibrosis/tubular atrophy (0,1,2) |
time |
Time frame for Risk estimate (months; defaults to 5 years = 60 months) |
immunosuppression |
Immunosuppression use (TRUE/FALSE) |
RASB |
Renin-angiotensin-aldosterone system blockade use (TRUE/FALSE) |
race |
Race as '"Chinese", "Japanese", "Caucasian", or "Other"' |
explanation |
Whether to output results as text description (TRUE/FALSE; defaults to FALSE) |
a single value of risk estimate for kidney outcome (>50 eGFR or ESRD) in the desired time interval
# Online calcresult = 51.42% vs 51.41738%
calculate_iga_risk_postbiopsy(egfr = 50, sbp=150, dbp=90, proteinuria=1.2, age=30,
race="Chinese", RASB=T,
mest_M=1,mest_E=1,mest_S=1,mest_T=1, time=60)
# Get text description of estimate
calculate_iga_risk_postbiopsy(egfr = 50, sbp=150, dbp=90, proteinuria=1.2, age=30,
race="Chinese", RASB=T,
mest_M=1,mest_E=1,mest_S=1,mest_T=1, time=60,
explanation = T)
# Online calcresult = 74.36% vs 74.3567%
calculate_iga_risk_postbiopsy(egfr = 50, sbp=150, dbp=90, proteinuria=1.2, age=30,
race="Japanese", RASB=T,
mest_M=1,mest_E=1,mest_S=1,mest_T=1, time=60)
# Online calcresult = 37.01% vs 37.01%
calculate_iga_risk_postbiopsy(egfr = 50, sbp=150, dbp=90, proteinuria=1.2, age=30,
race="Caucasian", RASB=T,
mest_M=1,mest_E=1,mest_S=1,mest_T=1, time=60)
# Online calcresult = 49.69% vs 27.98% # ONLINE uses no race if "Other" is specified
calculate_iga_risk_postbiopsy(egfr = 50, sbp=150, dbp=90, proteinuria=1.2, age=30,
race="Other", RASB=T,
mest_M=1,mest_E=1,mest_S=1,mest_T=1, time=60)
# Online calcresult = 49.69% vs 49.69%
calculate_iga_risk_postbiopsy_norace(egfr = 50, sbp=150, dbp=90, proteinuria=1.2, age=30,
RASB=T,
mest_M=1,mest_E=1,mest_S=1,mest_T=1, time=60)
calculate_iga_risk_postbiopsy_norace(egfr = 50, sbp=150, dbp=90, proteinuria=1.2, age=30,
RASB=T,
mest_M=1,mest_E=1,mest_S=1,mest_T=1, time=60,
explanation = T)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.