# NOT RUN {
#load example datasets in the package
#site1-3 contain individual-level data of data-contributing sites 1-3
data(site1)
data(site2)
data(site3)
#sites 1-3 compute summary-level information needed for creating the "Table 1"
#with logistic propensity score model A~X1+X2+X3+X4+X5
#no weight truncation
Xsummary1=computeInfoForTable1(data=site1,indA="A",indX=c("X1","X2","X3","X4","X5"),truncP=1)
Xsummary2=computeInfoForTable1(data=site2,indA="A",indX=c("X1","X2","X3","X4","X5"),truncP=1)
Xsummary3=computeInfoForTable1(data=site3,indA="A",indX=c("X1","X2","X3","X4","X5"),truncP=1)
#analysis center creates the "Table 1"
#using summary-level information Xsummary1-3 shared by data-contributing sites
#display the table with 3 decimal places
createTable1(list(Xsummary1,Xsummary2,Xsummary3),digits=3)
#analysis center can also generate site-specific "Table 1"
#for example, for site 1
createTable1(list(Xsummary1),digits=3)
# }
Run the code above in your browser using DataLab