fix list conversion bug

r-package/RcausalEGM/R/causalegm.R

@@ -101,18 +101,18 @@ causalegm <- function(x, y, v,
  params <- list(output_dir = output_dir,
  dataset = dataset,
  z_dims = as.integer(z_dims),
- v_dim = v_dim,
+ v_dim = as.integer(v_dim),
  lr = lr,
  alpha = alpha,
  beta = beta,
  gamma = gamma,
  g_d_freq = as.integer(g_d_freq),
- g_units = g_units,
- e_units = e_units,
- f_units = f_units,
- h_units = h_units,
- dv_units = dv_units,
- dz_units = dz_units,
+ g_units = as.integer(g_units),
+ e_units = as.integer(e_units),
+ f_units = as.integer(f_units),
+ h_units = as.integer(h_units),
+ dv_units = as.integer(dv_units),
+ dz_units = as.integer(dz_units),
  save_model = save_model,
  save_res = save_res,
  binary_treatment = binary_treatment,