Commit 5b143239 authored by Chris Jewell's avatar Chris Jewell
Browse files

Corrected inverted prevalences in example in inline doc.

parent ec0609fd
......@@ -134,7 +134,7 @@
#' data(campy)
#' zero_rows <- which(apply(campy[,c(2:7)], 1, sum) == 0)
#' campy <- campy[-zero_rows,]
#' prevs <- data.frame(Value = c(239/181, 196/113, 127/109,
#' prevs <- data.frame(Value = 1/c(239/181, 196/113, 127/109,
#' 595/97, 552/165, 524/86),
#' Source = colnames(campy[, 2:7]),
#' Time = rep(1, 6),
......@@ -483,9 +483,10 @@ HaldDP <- R6::R6Class(
if (isTRUE(private$params_fix$r)) {
private$r_updaters[[time]][[sources]] <- function() return(NULL)
} else {
private$r_updaters[[time]][[sources]] <- AdaptiveLogDirMRW2$new(private$DPModel_impl$rNodes[[time]][[sources]],
private$r_updaters[[time]][[sources]] <- AdaptiveLogDirMRW$new(private$DPModel_impl$rNodes[[time]][[sources]],
toupdate = function() sample(private$nTypes, private$n_r),
tune = rep(0.01, private$nTypes))
tune = rep(1.0, private$nTypes),
batchsize=10)
}
}
}
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment