Compute the predicted treatment effect on the true endpoint of a patient based on his or her observed vector of pretreatment predictor values in the continuous-continuous setting
Compute the predicted treatment effect on the true endpoint of a patient based on his or her observed vector of pretreatment predictor values in the continuous-continuous setting
This function computes the predicted ΔTj of a patient based on the vector of pretreatment values Sj of a patient in the continuous-continuous setting.
Sigma_TT: The variance-covariance matrix ΣTT=(σT0T0σT0T1σT0T1σT1T1).
Sigma_TS: The matrix that contains the covariances σT0Sr, σT1Sr. For example, when there are 2 pretreatment predictors ΣTS=(σT0S1σT1S1σT0S2σT1S2).
Sigma_SS: The variance-covariance matrix of the pretreatment predictors. For example, when there are 2 pretreatment predictors ΣSS=(σS1S1σS1S2σS1S2σS2S2).
Beta: The estimated treatment effect on the true endpoint (in the validation sample).
S: The vector of observed pretreatment values Sj for a patient.
mu_S: The vector of estimated means of the pretreatment predictor (in the validation sample).
T0T1: A scalar or vector that contains the correlation(s) between the counterfactuals T0 and T1 that should be considered in the computation of ρψ. Default seq(-1, 1, by=.01), i.e., the values −1, −0.99, −0.98, ..., 1.
Returns
An object of class PCA.Predict.Treat.Multivar.ContCont with components, - Pred_T: The predicted ΔTj.
Var_Delta.T_S: The variance σΔT|Sj.
T0T1: The correlation between the counterfactuals T0, T1.
References
Alonso, A., & Van der Elst, W. (submitted). Evaluating multivariate predictors of therapeutic success: a causal inference approach.
Author(s)
Wim Van der Elst, Ariel Alonso, & Geert Molenberghs
See Also
PCA.ContCont , Multivar.PCA.ContCont
Examples
# Specify the covariance matrices to be used Sigma_TT = matrix(c(177.870,NA,NA,162.374), byrow=TRUE, nrow=2)Sigma_TS = matrix(data = c(-45.140,-109.599,11.290,-56.542,-106.897,20.490), byrow =TRUE, nrow =2)Sigma_SS = matrix(data=c(840.564,73.936,-3.333,73.936,357.719,-30.564,-3.333,-30.564,95.063), byrow =TRUE, nrow =3)# Specify treatment effect (Beta), means of vector S (mu_s), and # observed pretreatment variable values for patient (S)Beta <--0.9581# treatment effectmu_S = matrix(c(66.8149,84.8393,25.1939), nrow=3)#means S_1--S_3S = matrix(c(90,180,30), nrow=3)# S_1--S_3 values for a patient# predict Delta_T based on SPred_S <- Predict.Treat.Multivar.ContCont(Sigma_TT=Sigma_TT, Sigma_TS=Sigma_TS,Sigma_SS=Sigma_SS, Beta=Beta, S=S, mu_S=mu_S, T0T1=seq(-1,1, by=.01))# Explore resultssummary(Pred_S)plot(Pred_S)