Compute the Dat'AIDS score and survival prediction
Usage
surv_dataids(
time,
score = NULL,
basesurv_fun = basesurv_hentzien2018,
eta_fun = eta_dataids,
age = NULL,
cd4_count = NULL,
nonhiv_cancer = NULL,
cardio_disease = NULL,
egfr = NULL,
cirrhosis = NULL,
low_bmi = NULL,
anemia = NULL
)
eta_dataids(
score = NULL,
beta_score = 0.1008354015,
age = NULL,
cd4_count = NULL,
nonhiv_cancer = NULL,
cardio_disease = NULL,
egfr = NULL,
cirrhosis = NULL,
low_bmi = NULL,
anemia = NULL
)
eta_riskgroupdataids(
score = NULL,
beta_score = c(`0-3` = 0, `4-13` = 0.81868, `14-19` = 1.76034, `>=20` = 2.61992),
age = NULL,
cd4_count = NULL,
nonhiv_cancer = NULL,
cardio_disease = NULL,
egfr = NULL,
cirrhosis = NULL,
low_bmi = NULL,
anemia = NULL
)
score_dataids(
age,
cd4_count,
nonhiv_cancer,
cardio_disease,
egfr,
cirrhosis,
low_bmi,
anemia
)
riskgroup_dataids(score)
points_dataids()
Arguments
- time
Numeric. Time of prediction in year.
- score
Numeric. Dat'AIDS score. If
NULL
, the score is computed using the predictors.- basesurv_fun
Function of
time
. Default isbasesurv_hentzien2018
.- eta_fun
Function of the score which returns the linear predictor. Default is
eta_dataids
andeta_riskgroupdataids
is available.- age
Numeric. Age in year.
- cd4_count
Numeric. Count of CD4 cell/mm\(^3\).
- nonhiv_cancer
Logical.
TRUE
for diagnosis of non-HIV cancer.- cardio_disease
Logical.
TRUE
for diagnosis of cardiovascular disease.- egfr
Numeric. Estimated glomerular filtration rate. (ml/min/1.73m\(^2\)).
- cirrhosis
Logical.
TRUE
for cirrhosis diagnostic.- low_bmi
Logical.
TRUE
if BMI < 18.5.- anemia
Logical.
TRUE
for anemia defined as hemoglobin <12g/dL for female and <13g/dL for male.- beta_score
Numberic. Default is
0.1008354015
for continuous score andc("0-3"=0, "4-13"=0.81868, "14-19"=1.76034, ">=20"=2.61992)
for risk group. Parameter associated to the score.
Details
The prediction of survival at time t is:
$$\hat{S}(t) = S_0(t)^{\exp{b*\text{score}}}$$,
where \(S_0(t)\) is basesurv_fun
and \(b\) is beta_score
.
score_dataids()
returns a numerical vector, points_dataids()
returns a list of the parameters used to compute the VACS Index 1 and surv_dataids()
returns the survival probabilities a the baseline survival function.
References
Hentzien M, Delpierre C, Pugliese P, Allavena C, Jacomet C, Valantin M-A, et al. (2018) Derivation and internal validation of a mortality risk index for aged people living with HIV: The Dat'AIDS score. PLoS ONE 13(4): e0195725. https://doi.org/10.1371/journal.pone.0195725
Examples
data(dataids)
dataids$dataids <- score_dataids(
age = dataids$age, cd4_count = dataids$cd4_count,
nonhiv_cancer = dataids$nonhiv_cancer, cardio_disease = dataids$cardio_disease,
egfr = dataids$egfr, cirrhosis = dataids$cirrhosis, low_bmi = dataids$low_bmi,
anemia = dataids$anemia)