synth_spec <- synth_spec()
noise1 <- noise(
add_noise = TRUE,
noise_func = add_noise_kde,
noise_params = list(
n_ntiles = 2
)
)
add_custom_noise(
synth_spec = synth_spec,
list("vars" = c("a", "b", "c"), "noise" = noise1)
)
Run the code above in your browser using DataLab