From 0b2163055e7a4abf5a35b573fc08dceee3bd6679 Mon Sep 17 00:00:00 2001
From: davidsantiagoquevedo <davidsantiagoquevedo@gmail.com>
Date: Sat, 2 Nov 2024 13:55:11 +0100
Subject: [PATCH] removed default option for at

---
 R/coh_effectiveness.R | 5 ++---
 man/effectiveness.Rd  | 5 ++---
 2 files changed, 4 insertions(+), 6 deletions(-)

diff --git a/R/coh_effectiveness.R b/R/coh_effectiveness.R
index 1e6f11d..42fac47 100644
--- a/R/coh_effectiveness.R
+++ b/R/coh_effectiveness.R
@@ -17,8 +17,7 @@
 #' @param vaccineff_data Object of the class `vaccineff_data` with
 #' vaccineff data.
 #' @param at Number of days at which VE is estimated from the beginning of the
-#' follow-up period. If NULL, effectiveness is estimated at the end of the
-#' study, assigned as `end_cohort`. Default is NULL.
+#' follow-up period.
 #' @return Object of the class `effectiveness`: a list with results from the
 #' estimation of VE.
 #' `ve`: `data.frame` with VE(CI95%)
@@ -56,7 +55,7 @@
 #' @export
 
 effectiveness <- function(vaccineff_data,
-                          at = NULL) {
+                          at) {
 
   stopifnot("Input must be an object of class 'vaccineff_data'" =
       checkmate::test_class(vaccineff_data, "vaccineff_data")
diff --git a/man/effectiveness.Rd b/man/effectiveness.Rd
index 6c801ac..1dc9585 100644
--- a/man/effectiveness.Rd
+++ b/man/effectiveness.Rd
@@ -4,15 +4,14 @@
 \alias{effectiveness}
 \title{Estimate Vaccine Effectiveness (VE)}
 \usage{
-effectiveness(vaccineff_data, at = NULL)
+effectiveness(vaccineff_data, at)
 }
 \arguments{
 \item{vaccineff_data}{Object of the class \code{vaccineff_data} with
 vaccineff data.}
 
 \item{at}{Number of days at which VE is estimated from the beginning of the
-follow-up period. If NULL, effectiveness is estimated at the end of the
-study, assigned as \code{end_cohort}. Default is NULL.}
+follow-up period.}
 }
 \value{
 Object of the class \code{effectiveness}: a list with results from the