# NOT RUN {
dat = UCICreditCard[24:26]
num_x_list = get_names(dat = dat, types = c('numeric', 'integer', 'double'),
ex_cols = NULL, get_ex = FALSE)
dat[ ,num_x_list] = loop_function(func = outliers_kmeans_lof, x_list = num_x_list,
args = list(dat = dat),
bind = "cbind", as_list = FALSE,
parallel = FALSE)
# }
Run the code above in your browser using DataLab