if (FALSE) {
logindata <- setupDSLiteServer(
datasets = c("CNSIM1", "CNSIM2", "CNSIM3"),
logindata = "logindata.dslite.cnsim", pkgs = "DSLite",
dslite.server = "dslite.server")
conns <- datashield.login(logindata, assign=TRUE)
# do DataSHIELD analysis
datashield.logout(conns)
}
Run the code above in your browser using DataLab