Merge pull request #65 from ISAAKiel/group_na

Update input_functions.R
ISAAKiel · Feb 22, 2024 · 4dc067e · 4dc067e
2 parents 1bb5cea + 35f1227
commit 4dc067e
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/R/input_functions.R b/R/input_functions.R
@@ -133,6 +133,7 @@ prep.life.table=function(x, dec = NA, agebeg, ageend = NA, group = NA, method =
   if(!is.na(group)){
     # Change the names of group for further processes to "Group".
     names(asd)[which(names(asd)==group)]="Group"
+    if (any(is.na(asd$Group))){stop("NA in grouping variable not allowed.")}
 
     # Create a dataframe (restab) filled with zeros,
     # with the column count of the grouping columns (+2)