ods <- SD2011[, c("region", "sex", "agegr", "placesize")]
s1 <- syn(ods, method = c("sample", "cart", "satcat", "cart"))
if (FALSE) {
### mostly fails because too many small categories
s2 <- syn(ods, method = c("sample", "cart", "cart", "satcat"))}
Run the code above in your browser using DataLab