inst/shiny-examples/scdhlm/mappings.R In jepusto/scdhlm: Estimating Hierarchical Linear Models for Single-Case Designs

```#------------------------------------------------
#------------------------------------------------

exampleChoices <- c("Alber-Morgan (multiple baseline design)" = "AlberMorgan",
"Anglesea (ABAB design)" = "Anglesea",
"Barton-Arwood (multiple baseline design)" = "BartonArwood",
"Lambert (ABAB design)" = "Lambert",
"Rodriguez (multiple baseline design)" = "Rodriguez",
"Schutte (multiple baseline design)" = "Schutte",
"Thorne (ABAB design)" = "Thorne")

exampleMapping <- list(
AlberMorgan = list(design = "MB",
vars = c("case","session","condition","outcome"),
phases = c("baseline","treatment")),
Anglesea = list(design = "TR",
vars = c("case","session","condition","outcome"),
phases = c("baseline","treatment")),
BartonArwood = list(design = "MB",
vars = c("case","session","condition","outcome"),
phases = c("A","B")),
Lambert = list(design = "TR",
vars = c("case","time","treatment","outcome"),
phases = c("SSR","RC")),
vars = c("case","time","treatment","outcome"),
phases = c(0,1)),
Rodriguez = list(design = "MB",
vars = c("case","session","condition","outcome"),
phases = c("A","B")),
vars = c("case","time","treatment","outcome"),
phases = c(0,1),
filters = "measure",
filter_measure = c("writing quality", "T-unit length", "number of constructions")),
Schutte = list(design = "MB",
vars = c("case","week","treatment","fatigue"),
phases = c("baseline","treatment")),
Thorne = list(design = "TR",
vars = c("case","session","condition","outcome"),
phase = c(0,1),
filters = "measure",
)

#------------------------------------------------
# Polynomial degree names
#------------------------------------------------

time_trends <- 0:6
names(time_trends) <- degree_names

#------------------------------------------------
# Design names
#------------------------------------------------

design_names <- c("Treatment Reversal" = "TR", "Multiple Baseline/Multiple Probe" = "MB")

#------------------------------------------------
# Estimation names
#------------------------------------------------

estimation_names <- c("Moment estimation" = "HPS", "Restricted Maximum Likelihood" = "RML")
```
jepusto/scdhlm documentation built on Aug. 23, 2018, 6:54 a.m.