diff --git a/R/extract_info.R b/R/extract_info.R index d4e73e1..2b3a2b8 100644 --- a/R/extract_info.R +++ b/R/extract_info.R @@ -47,10 +47,12 @@ extract_info <- function(reg, origin, level){ o.names <- colnames(info$doubling.conf) info$doubling.conf <- info$doubling.conf[, rev(seq_along(o.names)), drop = FALSE] + info$doubling.conf[info$doubling.conf<0] <- Inf colnames(info$doubling.conf) <- o.names } else { info$halving <- log(0.5) / r info$halving.conf <- log(0.5) / r.conf + info$halving.conf[info$halving.conf<0] <- Inf } ## We need to store the date corresponding to 'day 0', as this will be used