# create a perturbation table using
# functionality from ptable-pkg; see help(pa = "ptable")
# this returns an extra ptable for very small cells
ptab <- ptable::pt_ex_nums(separation = TRUE)
# create parameters
ck_params_nums(
type = "top_contr",
top_k = 3,
ptab = ptab,
mult_params = ck_flexparams(
fp = 1000,
p = c(0.20, 0.03),
epsilon = c(1, 0.5, 0.2),
q = 2),
use_zero_rkeys = TRUE,
mu_c = 3)
Run the code above in your browser using DataLab