Nothing
## ----setup, include=FALSE------------------------------------------------
knitr::opts_knit$set(progress=FALSE)
## ------------------------------------------------------------------------
library(inctools)
## ---- results='hide'-----------------------------------------------------
mdri <- mdrical(data=excalibdata,
subid_var = "SubjectID",
time_var = "DaysSinceEDDI",
recency_cutoff_time = 730.5,
inclusion_time_threshold = 800,
functional_forms = c("cloglog_linear"),
recency_rule = "binary_data",
recency_vars = "Recent",
n_bootstraps = 1000,
alpha = 0.05,
plot = TRUE,
parallel = FALSE)
## ---- fig.width=6.5, fig.height=5, fig.align="center", fig.show='hold'----
print(mdri)
## ---- results='hide'-----------------------------------------------------
mdri <- mdrical(data=excalibdata,
subid_var = "SubjectID",
time_var = "DaysSinceEDDI",
recency_cutoff_time = 730.5,
inclusion_time_threshold = 800,
functional_forms = c("logit_cubic"),
recency_rule = "independent_thresholds",
recency_vars = c("Result","VL"),
recency_params = c(10,0,1000,1),
n_bootstraps = 1000,
alpha = 0.05,
plot = TRUE,
parallel = FALSE)
## ---- fig.width=6.5, fig.height=5, fig.align="center", fig.show='hold'----
print(mdri)
## ---- results='hide'-----------------------------------------------------
mdri <- mdrical(data=excalibdata,
subid_var = "SubjectID",
time_var = "DaysSinceEDDI",
recency_cutoff_time = 730.5,
inclusion_time_threshold = 800,
functional_forms = c("cloglog_linear","logit_cubic"),
recency_rule = "independent_thresholds",
recency_vars = c("Result","VL"),
recency_params = c(10,0,1000,1),
n_bootstraps = 10,
parallel = FALSE,
alpha = 0.05,
plot = TRUE,
output_bs_parms = TRUE)
## ---- fig.width=6.5, fig.height=5, fig.align="center", fig.show='hold'----
print(mdri$Models)
print(mdri$BSparms)
## ------------------------------------------------------------------------
frrcal(data=excalibdata,
subid_var = "SubjectID",
time_var = "DaysSinceEDDI",
recency_cutoff_time = 730.5,
recency_rule = "independent_thresholds",
recency_vars = c("Result","VL"),
recency_params = c(10,0,1000,1),
alpha = 0.05)
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.