inst/doc/Excess_and_Predicted_Cases.R

In Colossus: "Risk Model Regression and Analysis with Complex Non-Linear Models"

## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

## ----setup--------------------------------------------------------------------
library(Colossus)
library(data.table)

## -----------------------------------------------------------------------------
names <- c("x", "D")
term_n <- c(0, 1)
tform <- c("loglin", "lin")
modelform <- "M"

a_n <- c(0.1, 0.1)

## ----eval=FALSE---------------------------------------------------------------
# names <- c("x", "D")
# term_n <- c(0, 1)
# tform <- c("loglin", "lin")
# modelform <- "M"
# a_n <- c(0.1, 0.1)
# keep_constant <- rep(0, length(names))
# control <- list("Ncores" = 2, "verbose" = 2)
# e <- RunPoissonEventAssignment(df, pyr, event, names, Term_n, tform, keep_constant, a_n, modelform, control = control)
# 
# e0 <- e$predict
# e1 <- e$caused
# 
# BK <- e0[, 1]
# EX <- e0[, 2]
# Total <- e0[, 3]