Nothing
## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>"
)
## ----setup--------------------------------------------------------------------
library(sim.BA)
## -----------------------------------------------------------------------------
parameters <- create_parameters(nbinary = 6,
ncontinuous = 1,
ncount = 1,
# file = "parameters.csv",
unmeasured_conf = "u1",
unmeasured_type = "binary")
# Note: uncomment `file` argument to automatically save file to supplied path
## -----------------------------------------------------------------------------
parameters <- read.csv(system.file("extdata", "parameters.csv",
package = "sim.BA"))
parameters
## -----------------------------------------------------------------------------
sim <- simBA(parameters,
iterations = 500,
size = 1000,
treatment_prevalence = .2,
treatment_coeff = -.5,
outcome_prevalence = .05,
dist = "weibull",
unmeasured_conf = "u1",
n_proxies = 2,
proxy_type = "binary",
corr = c(0.5, 0.4),
adj = "matching",
adj_args = list(method = "nearest", caliper=0.2),
estimand = "ATT",
keep_data = FALSE,
# cl = 4, #uncomment for speed on Mac
verbose = FALSE)
sim
## ----fig.height=5, fig.width=5------------------------------------------------
summary(sim)
## ----fig.height=5, fig.width=5------------------------------------------------
plot(sim, type = "balance")
## ----fig.height=5, fig.width=5------------------------------------------------
plot(sim, type = "hr")
## ----fig.height=5, fig.width=5------------------------------------------------
plot(sim, type = "bias")
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.