From 9b1da2378f002b9d9471ede3bdfb527e56ff29b9 Mon Sep 17 00:00:00 2001 From: m-maheu-giroux Date: Fri, 9 Aug 2024 17:31:46 -0400 Subject: [PATCH] fixing bug in R version of eppasm.R --- R/eppasm.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/eppasm.R b/R/eppasm.R index 2c02eb7..1f4f01f 100644 --- a/R/eppasm.R +++ b/R/eppasm.R @@ -250,7 +250,7 @@ simmod <- function(fp, VERSION = "C") { testneg_infections_ha <- infections_ha * (testnegpop[,,hivn.idx,i] / hivn_pop_ha) grad_tn[ , , hivn.idx] <- grad_tn[ , , hivn.idx] - testneg_infections_ha - grad_tn[ , , hivp.idx] <- grad_tn[ , , hivp.idx] - testneg_infections_ha + grad_tn[ , , hivp.idx] <- grad_tn[ , , hivp.idx] + testneg_infections_ha } ## Do new diagnoses