debug

R/infection.FUN.R

@@ -100,7 +100,7 @@ infection.FUN <- function(dat, at, seed = NULL){
         
         # Transmission from exposed
         ## Expected acts
-        acts <- round(ifelse(length(act.rate.i) > 1, act.rate.i[at - 1], act.rate.i) *
+        acts <- round(ifelse(length(act.rate.e) > 1, act.rate.e[at - 1], act.rate.e) *
                           dat$epi$num[at - 1] / 2 )
         
         ## Edgelist: s, e