mod <- mcode("ex-cdn", "$PARAM @input \n CL = 1, KA = 2", compile = FALSE)
param(mod)
# Coding mistake!
data <- expand.evd(amt = 100, cl = 2, KA = 5)
check_data_names(data, mod)
try(check_data_names(data, mod, mode = "error"))
check_data_names(data, mod, mode = "inform")
Run the code above in your browser using DataLab