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