Compute the multivariate predictive causal association (PCA) in the Continuous-continuous case
Compute the multivariate predictive causal association (PCA) in the Continuous-continuous case
The function Multivar.PCA.ContCont computes the predictive causal association (PCA) when S = the vector of pretreatment predictors and T = the True endpoint. All S and T should be continuous normally distributed endpoints. See Details below.
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).
T0T1: A scalar or vector that contains the correlation(s) between the counterfactuals T0 and T1 that should be considered in the computation of Rψ2. Default seq(-1, 1, by=.01), i.e., the values −1, −0.99, −0.98, ..., 1.
M: If M=NA, all correlation(s) between the counterfactuals T0 and T1 specified in the argument T0T1 are used to compute Rψ2. If M=m, random draws are taken from T0T1 until mRψ2 are found. Default M=NA.
Returns
An object of class Multivar.PCA.ContCont with components, - Total.Num.Matrices: An object of class numeric that contains the total number of matrices that can be formed as based on the user-specified correlations in the function call.
Pos.Def: A data.frame that contains the positive definite matrices that can be formed based on the user-specified correlations. These matrices are used to compute the vector of the Rψ2 values.
PCA: A scalar or vector that contains the PCA (Rψ2) value(s).
R2_psi_g: A Data.frame that contains Rψg2.
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
Examples
# First 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)# Compute PCAResults <- Multivar.PCA.ContCont(Sigma_TT = Sigma_TT,Sigma_TS = Sigma_TS, Sigma_SS = Sigma_SS)# Evaluate resultssummary(Results)plot(Results)