Merge pull request #2 from sametsoekel/1-dplyr-110-compatibility

cran/kmscv#1
sametsoekel · Dec 29, 2022 · 2c0b48e · 2c0b48e
2 parents ef19fba + 55381e4
commit 2c0b48e
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/kms_cv.r b/R/kms_cv.r
@@ -59,7 +59,7 @@ kms_cv <- function(data,k = 5,centers = NULL,max_center = 20,alpha = .1,seed = N
 
        props <- current_prop_df[['Prop']]
 
-       group_size <- ideal_sample_size * props
+       group_size <- round(ideal_sample_size * props)
 
        resample <- purrr::map2_dfr(dplyr::group_split(dplyr::group_by_at(data_,'cls')),group_size, ~ dplyr::slice_sample(.x, n = .y))