add warning

R/indiv_inbreeding.R

@@ -58,6 +58,6 @@ indiv_inbreeding.grouped_df <- function(.x, method = c("WG17"), allele_sharing_m
   if (!is.null(allele_sharing_mat)){
     stop("allele_sharing_mat can not be provided for grouped_df objects")
   }
-
+  message("the grouped version of this function has not been fully tested yet")
   group_map(.x, .f=~indiv_inbreeding.(.x, method = method, allele_sharing_mat=NULL, ...))
 }