bugfix in carrying forward DOSCUMA

NMautoverse · Sep 7, 2022 · d58fa7b · d58fa7b
1 parent 0f6feaa
commit d58fa7b
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/addTAPD.R b/R/addTAPD.R
@@ -130,7 +130,7 @@ addTAPD <- function(data,col.time="TIME",col.evid="EVID",col.amt="AMT",col.tpdos
         ## Cumulative Amount of Dose Received
         if(!is.null(col.doscuma)){
             data[!is.na(get(col.amt)),(col.doscuma):=cumsum(get(col.amt)),by=by]
-            data[,(col.doscuma):=nafill(get(col.doscuma)),by=by]
+            data[,(col.doscuma):=nafill(get(col.doscuma),type="locf"),by=by]
         }
         ## clean up tpdos
         if(is.null(col.tpdos)){