Update R/new_regimen.R

Co-authored-by: Jasmine Hughes <[email protected]>
InsightRX · Jun 6, 2024 · 5bbf857 · 5bbf857
1 parent 92313ae
commit 5bbf857
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/new_regimen.R b/R/new_regimen.R
@@ -69,7 +69,7 @@ new_regimen <- function(
       stop("'covariate' is a protected type and cannot be used for doses.")
     }
     if(any(type == "infusion") && (is.null(t_inf) || length(t_inf) == 0)) {
-      reg$t_inf[reg$type=="infusion"] = 1
+      reg$t_inf[reg$type == "infusion"] <- 1
     } else if (any(is.na(t_inf))) {
       reg$t_inf[(reg$type=="infusion" & is.na(t_inf))] <- 1
     }