# NOT RUN {
data <- mds_ts[[1]]
data$rate <- data$nA / data$exposure
x <- list(prr=list(),
xbar=list(),
xbar=list(ts_event=c(Rate="rate"), we_rule=2),
poisson_rare=list(p_rate=0.3))
algos <- define_algos(x)
run_algos(data, algos)
run_algos(data, algos, FALSE)
# }
Run the code above in your browser using DataLab