Update functionfupcompleteness.R

kevinmveen · Sep 21, 2023 · e536912 · e536912
1 parent 1a78c50
commit e536912
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/functionfupcompleteness.R b/R/functionfupcompleteness.R
@@ -56,7 +56,7 @@ fup.completeness = function(date.inclusion,
     dat$death.fup = as.numeric(dat$death.date - dat$date.inclusion)
 
     x = table(dat$death)
-    if(!is.null(r.pre)){
+    if(is.null(r.pre)){
     if(dim(x)==1){stop("There are no deaths; hence caculation of death rate is not possible. Please pre-specify a daily death rate (r)")}
     r = sum(table(dat$death)[!rownames(x) == deathcode]) / sum(dat$death.fup)