# 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)
#data-contributing sites 1-3 create summary-level riskset tables
#with logistic propensity score model A~X1+X2+X3+X4+X5
#no weight truncation
#do not share event times
rsTb1=createRisksetTable(data=site1,indA="A",indX=c("X1","X2","X3","X4","X5"),
indStatus="status",indTime="time",truncP=1,shareEventTime="no")
rsTb2=createRisksetTable(data=site2,indA="A",indX=c("X1","X2","X3","X4","X5"),
indStatus="status",indTime="time",truncP=1,shareEventTime="no")
rsTb3=createRisksetTable(data=site3,indA="A",indX=c("X1","X2","X3","X4","X5"),
indStatus="status",indTime="time",truncP=1,shareEventTime="no")
#analysis center estimates site-specific hazard ratios in IPW Cox models
#for all data-contributing sites
#using summary-level riskset tables rsTb1-3 shared by data-contributing sites
estimateSiteHRs(list(rsTb1,rsTb2,rsTb3),initialHR=1,endpoint=Inf,confidence=0.95)
# }
Run the code above in your browser using DataLab