tests/testthat/test-dssSynthpop.R
In sib-swiss/dsSwissKnifeClient: DataSHIELD Tools and Utilities - client side
test_that("dssSynthpop works", {
datashield.aggregate(opals["server1"], as.symbol('fullData("SD2011", "synthpop")') )
dssSubset('SD', 'SD2011', col.filter = 'c(5:12)', datasources = opals['server1'])
dt <- dssSynthpop('SD', visit.sequence = c('income', 'edu', 'eduspec'), seed=123, datasources = opals['server1'])
expect_lt(mean(dt$server1$syn$income, na.rm=TRUE) - 1427.194, .001)
})
sib-swiss/dsSwissKnifeClient documentation built on July 16, 2025, 6:25 p.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
test_that("dssSynthpop works", {
datashield.aggregate(opals["server1"], as.symbol('fullData("SD2011", "synthpop")') )
dssSubset('SD', 'SD2011', col.filter = 'c(5:12)', datasources = opals['server1'])
dt <- dssSynthpop('SD', visit.sequence = c('income', 'edu', 'eduspec'), seed=123, datasources = opals['server1'])
expect_lt(mean(dt$server1$syn$income, na.rm=TRUE) - 1427.194, .001)
})
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.