Added input validation to prepare_serodata()

DESCRIPTION

@@ -38,7 +38,8 @@ LazyData: true
 RoxygenNote: 7.2.3
 Depends: 
     R (>= 3.5.0)
-Imports: 
+Imports:
+    checkmate,
     methods,
     Rcpp (>= 0.12.0),
     RcppParallel (>= 5.0.1),

R/seroprevalence_data.R

@@ -37,6 +37,16 @@
 prepare_serodata <- function(serodata = serodata,
                             alpha = 0.05, 
                             add_age_mean_f = TRUE) {
+  checkmate::assert_numeric(alpha, lower = 0, upper = 1)
+  checkmate::assert_logical(add_age_mean_f)
+  #Check that serodata has the right columns
+  stopifnot("serodata must contain the right columns" =
+            setequal(names(serodata),
+                     c("survey", "total", "counts", "age_min","age_max",
+                       "tsur", "country","test", "antibody"
+                       )
+                     )
+            )
   if(add_age_mean_f){
     serodata <- serodata %>%
       dplyr::mutate(age_mean_f = floor((age_min + age_max) / 2), sample_size = sum(total)) %>%