Я пытаюсь применить функцию discretize_rgr ( здесь ) пакета funModeling к нескольким столбцам кадра данных.
Для одного столбца у меня это работает так:
discretize_rgr(input = df.div$to_be_discretized, target = df.div$TARGET, max_n_bins=10)
Итак, я пытаюсь использовать пакет purrr для управления несколькими столбцами следующим образом:
df.div %>%
modify_if( is.numeric, ~ discretize_rgr(., target = df.div$TARGET, max_n_bins=10))
но я получаю следующую ошибку:
Ошибка в порядке (fpoints_top): аргумент 1 не является вектором
Что не так?
ОБНОВЛЕНИЕ (пример данных)
structure(list(to_be_discretized = c(0.0152096300012854, 0.0132660373578711,
0.014699121782711, 0.0157102877064037, 0.0197417484744586, 0.019651999420645
), TARGET = c(27136, 30048, 34840, 138812, 191088, 240370)), class = c("spec_tbl_df",
"tbl_df", "tbl", "data.frame"), row.names = c(NA, -6L))