# NOT RUN {
## 3 party linear regression
# Analysis Center -- To be run in one instance of R.
# The working directory should be the same as specified in the PopMedNet
# requset for the analysis center.
fit = AnalysisCenter.KParty(regression = "linear", numDataPartners = 2,
monitorFolder = tempdir())
# Data Partner 1 -- To be run in second instand of R, on perhaps a different machine.
# The working directory should be the same as specified in the PopMedNet
# request for the data partner.
fit = DataPartner.KParty(regression = "linear", data = vdra_data[, c(1, 5:7)],
response = "Change_BMI", numDataPartners = 2, dataPartnerID = 1,
monitorFolder = tempdir())
# Data Partner 2 -- To be run in third instand of R, on perhaps a different machine.
# The working directory should be the same as specified in the PopMedNet
# request for the data partner.
fit = DataPartner.KParty(regression = "linear", data = vdra_data[, 8:11],
numDataPartners = 2, dataPartnerID = 2, monitorFolder = tempdir())
## 3 party logistic regression
# Analysis Center -- To be run in one instance of R.
# The working directory should be the same as specified in the PopMedNet
# requset for the analysis center.
fit = AnalysisCenter.KParty(regression = "logistic", numDataPartners = 2,
monitorFolder = tempdir())
# Data Partner 1 -- To be run in second instand of R, on perhaps a different machine.
# The working directory should be the same as specified in the PopMedNet
# request for the data partner.
fit = DataPartner.KParty(regression = "logistic", data = vdra_data[, c(2, 5:7)],
response = "WtLost", numDataPartners = 2, dataPartnerID = 1,
monitorFolder = tempdir())
# Data Partner 2 -- To be run in third instand of R, on perhaps a different machine.
# The working directory should be the same as specified in the PopMedNet
# request for the data partner.
fit = DataPartner.KParty(regression = "logistic", data = vdra_data[, 8:11],
numDataPartners = 2, dataPartnerID = 2, monitorFolder = tempdir())
## 3 party cox regression
# Analysis Center -- To be run in one instance of R.
# The working directory should be the same as specified in the PopMedNet
# requset for the analysis center.
fit = AnalysisCenter.KParty(regression = "cox", numDataPartners = 2,
monitorFolder = tempdir())
# Data Partner 1 -- To be run in second instand of R, on perhaps a different machine.
# The working directory should be the same as specified in the PopMedNet
# request for the data partner.
fit = DataPartner.KParty(regression = "cox", data = vdra_data[, c(3:4, 5:7)],
response = c("Time", "Status"), strata = c("Exposure", "Sex"),
numDataPartners = 2, dataPartnerID = 1, monitorFolder = tempdir())
# Data Partner 2 -- To be run in third instand of R, on perhaps a different machine.
# The working directory should be the same as specified in the PopMedNet
# request for the data partner.
fit = DataPartner.KParty(regression = "cox", data = vdra_data[, 8:11],
strata = c("Exposure", "Sex"), numDataPartners = 2, dataPartnerID = 2,
monitorFolder = tempdir())
# }
Run the code above in your browser using DataLab