suppressPackageStartupMessages(library(purrr))
suppressPackageStartupMessages(library(dplyr))
df_tbl <- rnorm(n = 1000, mean = 0, sd = 1)
df_tbl <- df_tbl %>%
as_tibble() %>%
set_names("value")
df_tbl %>%
opt_bin(
.value_col = value
, .iters = 100
)
Run the code above in your browser using DataLab