Error(s) in re-building vignettes:
--- re-building ‘branch.Rmd’ using rmarkdown

Attaching package: 'dplyr'

The following objects are masked from 'package:stats':

    filter, lag

The following objects are masked from 'package:base':

    intersect, setdiff, setequal, union


Attaching package: 'multiverse'

The following object is masked from 'package:tidyr':

    expand

--- finished re-building ‘branch.Rmd’

--- re-building ‘conditions.Rmd’ using rmarkdown
--- finished re-building ‘conditions.Rmd’

--- re-building ‘durante-multiverse-analysis.Rmd’ using rmarkdown
--- finished re-building ‘durante-multiverse-analysis.Rmd’

--- re-building ‘frequentist-multiverse-analysis.Rmd’ using rmarkdown
ci_method <- "tCI"
data_transform <- log
conf_level <- 0.5
ci_method <- "tCI"
data_transform <- log
conf_level <- 0.67
ci_method <- "tCI"
data_transform <- log
conf_level <- 0.89
ci_method <- "tCI"
data_transform <- log
conf_level <- 0.95
ci_method <- "tCI"
data_transform <- log
conf_level <- 0.99
ci_method <- "tCI"
data_transform <- log
conf_level <- 0.999
ci_method <- "tCI"
data_transform <- identity
conf_level <- 0.5
ci_method <- "tCI"
data_transform <- identity
conf_level <- 0.67
ci_method <- "tCI"
data_transform <- identity
conf_level <- 0.89
ci_method <- "tCI"
data_transform <- identity
conf_level <- 0.95
ci_method <- "tCI"
data_transform <- identity
conf_level <- 0.99
ci_method <- "tCI"
data_transform <- identity
conf_level <- 0.999
ci_method <- "bootstrappedCI"
data_transform <- log
conf_level <- 0.5
ci_method <- "bootstrappedCI"
data_transform <- log
conf_level <- 0.67
ci_method <- "bootstrappedCI"
data_transform <- log
conf_level <- 0.89
ci_method <- "bootstrappedCI"
data_transform <- log
conf_level <- 0.95
ci_method <- "bootstrappedCI"
data_transform <- log
conf_level <- 0.99
ci_method <- "bootstrappedCI"
data_transform <- log
conf_level <- 0.999
ci_method <- "bootstrappedCI"
data_transform <- identity
conf_level <- 0.5
ci_method <- "bootstrappedCI"
data_transform <- identity
conf_level <- 0.67
ci_method <- "bootstrappedCI"
data_transform <- identity
conf_level <- 0.89
ci_method <- "bootstrappedCI"
data_transform <- identity
conf_level <- 0.95
ci_method <- "bootstrappedCI"
data_transform <- identity
conf_level <- 0.99
ci_method <- "bootstrappedCI"
data_transform <- identity
conf_level <- 0.999
duration <- do.call(data_transform, list(data.userlogs.raw$duration))
duration <- do.call(data_transform, list(data.userlogs.raw$duration))
duration <- do.call(data_transform, list(data.userlogs.raw$duration))
duration <- do.call(data_transform, list(data.userlogs.raw$duration))
duration <- do.call(data_transform, list(data.userlogs.raw$duration))
duration <- do.call(data_transform, list(data.userlogs.raw$duration))
duration <- do.call(data_transform, list(data.userlogs.raw$duration))
duration <- do.call(data_transform, list(data.userlogs.raw$duration))
duration <- do.call(data_transform, list(data.userlogs.raw$duration))
duration <- do.call(data_transform, list(data.userlogs.raw$duration))
duration <- do.call(data_transform, list(data.userlogs.raw$duration))
duration <- do.call(data_transform, list(data.userlogs.raw$duration))
duration <- do.call(data_transform, list(data.userlogs.raw$duration))
duration <- do.call(data_transform, list(data.userlogs.raw$duration))
duration <- do.call(data_transform, list(data.userlogs.raw$duration))
duration <- do.call(data_transform, list(data.userlogs.raw$duration))
duration <- do.call(data_transform, list(data.userlogs.raw$duration))
duration <- do.call(data_transform, list(data.userlogs.raw$duration))
duration <- do.call(data_transform, list(data.userlogs.raw$duration))
duration <- do.call(data_transform, list(data.userlogs.raw$duration))
duration <- do.call(data_transform, list(data.userlogs.raw$duration))
duration <- do.call(data_transform, list(data.userlogs.raw$duration))
duration <- do.call(data_transform, list(data.userlogs.raw$duration))
duration <- do.call(data_transform, list(data.userlogs.raw$duration))
modality <- data.userlogs.raw$modalityname
ci.physical_notouch <- do.call(ci_method, list(duration[modality == "physical-notouch"],
    conf_level))
ci.physical_notouch <- setNames(as.list(c("physical_notouch", ci.physical_notouch)),
    c("modality", "estimate", "conf.low", "conf.high"))
ci.physical_touch <- do.call(ci_method, list(duration[modality == "physical-touch"],
    conf_level))
ci.physical_touch <- setNames(as.list(c("physical_touch", ci.physical_touch)), c("modality",
    "estimate", "conf.low", "conf.high"))
ci.virtual_prop <- do.call(ci_method, list(duration[modality == "virtual-prop"],
    conf_level))
ci.virtual_prop <- setNames(as.list(c("virtual_prop", ci.virtual_prop)), c("modality",
    "estimate", "conf.low", "conf.high"))
ci.virtual_mouse <- do.call(ci_method, list(duration[modality == "virtual-mouse"],
    conf_level))
ci.virtual_mouse <- setNames(as.list(c("virtual_mouse", ci.virtual_mouse)), c("modality",
    "estimate", "conf.low", "conf.high"))
df <- rbind.data.frame(ci.physical_notouch, ci.physical_touch, ci.virtual_prop, ci.virtual_mouse,
    make.row.names = FALSE, stringsAsFactors = FALSE)
df <- transform(df, estimate = as.numeric(estimate), conf.low = as.numeric(conf.low),
    conf.high = as.numeric(conf.high))
modality <- data.userlogs.raw$modalityname
ci.physical_notouch <- do.call(ci_method, list(duration[modality == "physical-notouch"],
    conf_level))
ci.physical_notouch <- setNames(as.list(c("physical_notouch", ci.physical_notouch)),
    c("modality", "estimate", "conf.low", "conf.high"))
ci.physical_touch <- do.call(ci_method, list(duration[modality == "physical-touch"],
    conf_level))
ci.physical_touch <- setNames(as.list(c("physical_touch", ci.physical_touch)), c("modality",
    "estimate", "conf.low", "conf.high"))
ci.virtual_prop <- do.call(ci_method, list(duration[modality == "virtual-prop"],
    conf_level))
ci.virtual_prop <- setNames(as.list(c("virtual_prop", ci.virtual_prop)), c("modality",
    "estimate", "conf.low", "conf.high"))
ci.virtual_mouse <- do.call(ci_method, list(duration[modality == "virtual-mouse"],
    conf_level))
ci.virtual_mouse <- setNames(as.list(c("virtual_mouse", ci.virtual_mouse)), c("modality",
    "estimate", "conf.low", "conf.high"))
df <- rbind.data.frame(ci.physical_notouch, ci.physical_touch, ci.virtual_prop, ci.virtual_mouse,
    make.row.names = FALSE, stringsAsFactors = FALSE)
df <- transform(df, estimate = as.numeric(estimate), conf.low = as.numeric(conf.low),
    conf.high = as.numeric(conf.high))
modality <- data.userlogs.raw$modalityname
ci.physical_notouch <- do.call(ci_method, list(duration[modality == "physical-notouch"],
    conf_level))
ci.physical_notouch <- setNames(as.list(c("physical_notouch", ci.physical_notouch)),
    c("modality", "estimate", "conf.low", "conf.high"))
ci.physical_touch <- do.call(ci_method, list(duration[modality == "physical-touch"],
    conf_level))
ci.physical_touch <- setNames(as.list(c("physical_touch", ci.physical_touch)), c("modality",
    "estimate", "conf.low", "conf.high"))
ci.virtual_prop <- do.call(ci_method, list(duration[modality == "virtual-prop"],
    conf_level))
ci.virtual_prop <- setNames(as.list(c("virtual_prop", ci.virtual_prop)), c("modality",
    "estimate", "conf.low", "conf.high"))
ci.virtual_mouse <- do.call(ci_method, list(duration[modality == "virtual-mouse"],
    conf_level))
ci.virtual_mouse <- setNames(as.list(c("virtual_mouse", ci.virtual_mouse)), c("modality",
    "estimate", "conf.low", "conf.high"))
df <- rbind.data.frame(ci.physical_notouch, ci.physical_touch, ci.virtual_prop, ci.virtual_mouse,
    make.row.names = FALSE, stringsAsFactors = FALSE)
df <- transform(df, estimate = as.numeric(estimate), conf.low = as.numeric(conf.low),
    conf.high = as.numeric(conf.high))
modality <- data.userlogs.raw$modalityname
ci.physical_notouch <- do.call(ci_method, list(duration[modality == "physical-notouch"],
    conf_level))
ci.physical_notouch <- setNames(as.list(c("physical_notouch", ci.physical_notouch)),
    c("modality", "estimate", "conf.low", "conf.high"))
ci.physical_touch <- do.call(ci_method, list(duration[modality == "physical-touch"],
    conf_level))
ci.physical_touch <- setNames(as.list(c("physical_touch", ci.physical_touch)), c("modality",
    "estimate", "conf.low", "conf.high"))
ci.virtual_prop <- do.call(ci_method, list(duration[modality == "virtual-prop"],
    conf_level))
ci.virtual_prop <- setNames(as.list(c("virtual_prop", ci.virtual_prop)), c("modality",
    "estimate", "conf.low", "conf.high"))
ci.virtual_mouse <- do.call(ci_method, list(duration[modality == "virtual-mouse"],
    conf_level))
ci.virtual_mouse <- setNames(as.list(c("virtual_mouse", ci.virtual_mouse)), c("modality",
    "estimate", "conf.low", "conf.high"))
df <- rbind.data.frame(ci.physical_notouch, ci.physical_touch, ci.virtual_prop, ci.virtual_mouse,
    make.row.names = FALSE, stringsAsFactors = FALSE)
df <- transform(df, estimate = as.numeric(estimate), conf.low = as.numeric(conf.low),
    conf.high = as.numeric(conf.high))
modality <- data.userlogs.raw$modalityname
ci.physical_notouch <- do.call(ci_method, list(duration[modality == "physical-notouch"],
    conf_level))
ci.physical_notouch <- setNames(as.list(c("physical_notouch", ci.physical_notouch)),
    c("modality", "estimate", "conf.low", "conf.high"))
ci.physical_touch <- do.call(ci_method, list(duration[modality == "physical-touch"],
    conf_level))
ci.physical_touch <- setNames(as.list(c("physical_touch", ci.physical_touch)), c("modality",
    "estimate", "conf.low", "conf.high"))
ci.virtual_prop <- do.call(ci_method, list(duration[modality == "virtual-prop"],
    conf_level))
ci.virtual_prop <- setNames(as.list(c("virtual_prop", ci.virtual_prop)), c("modality",
    "estimate", "conf.low", "conf.high"))
ci.virtual_mouse <- do.call(ci_method, list(duration[modality == "virtual-mouse"],
    conf_level))
ci.virtual_mouse <- setNames(as.list(c("virtual_mouse", ci.virtual_mouse)), c("modality",
    "estimate", "conf.low", "conf.high"))
df <- rbind.data.frame(ci.physical_notouch, ci.physical_touch, ci.virtual_prop, ci.virtual_mouse,
    make.row.names = FALSE, stringsAsFactors = FALSE)
df <- transform(df, estimate = as.numeric(estimate), conf.low = as.numeric(conf.low),
    conf.high = as.numeric(conf.high))
modality <- data.userlogs.raw$modalityname
ci.physical_notouch <- do.call(ci_method, list(duration[modality == "physical-notouch"],
    conf_level))
ci.physical_notouch <- setNames(as.list(c("physical_notouch", ci.physical_notouch)),
    c("modality", "estimate", "conf.low", "conf.high"))
ci.physical_touch <- do.call(ci_method, list(duration[modality == "physical-touch"],
    conf_level))
ci.physical_touch <- setNames(as.list(c("physical_touch", ci.physical_touch)), c("modality",
    "estimate", "conf.low", "conf.high"))
ci.virtual_prop <- do.call(ci_method, list(duration[modality == "virtual-prop"],
    conf_level))
ci.virtual_prop <- setNames(as.list(c("virtual_prop", ci.virtual_prop)), c("modality",
    "estimate", "conf.low", "conf.high"))
ci.virtual_mouse <- do.call(ci_method, list(duration[modality == "virtual-mouse"],
    conf_level))
ci.virtual_mouse <- setNames(as.list(c("virtual_mouse", ci.virtual_mouse)), c("modality",
    "estimate", "conf.low", "conf.high"))
df <- rbind.data.frame(ci.physical_notouch, ci.physical_touch, ci.virtual_prop, ci.virtual_mouse,
    make.row.names = FALSE, stringsAsFactors = FALSE)
df <- transform(df, estimate = as.numeric(estimate), conf.low = as.numeric(conf.low),
    conf.high = as.numeric(conf.high))
modality <- data.userlogs.raw$modalityname
ci.physical_notouch <- do.call(ci_method, list(duration[modality == "physical-notouch"],
    conf_level))
ci.physical_notouch <- setNames(as.list(c("physical_notouch", ci.physical_notouch)),
    c("modality", "estimate", "conf.low", "conf.high"))
ci.physical_touch <- do.call(ci_method, list(duration[modality == "physical-touch"],
    conf_level))
ci.physical_touch <- setNames(as.list(c("physical_touch", ci.physical_touch)), c("modality",
    "estimate", "conf.low", "conf.high"))
ci.virtual_prop <- do.call(ci_method, list(duration[modality == "virtual-prop"],
    conf_level))
ci.virtual_prop <- setNames(as.list(c("virtual_prop", ci.virtual_prop)), c("modality",
    "estimate", "conf.low", "conf.high"))
ci.virtual_mouse <- do.call(ci_method, list(duration[modality == "virtual-mouse"],
    conf_level))
ci.virtual_mouse <- setNames(as.list(c("virtual_mouse", ci.virtual_mouse)), c("modality",
    "estimate", "conf.low", "conf.high"))
df <- rbind.data.frame(ci.physical_notouch, ci.physical_touch, ci.virtual_prop, ci.virtual_mouse,
    make.row.names = FALSE, stringsAsFactors = FALSE)
df <- transform(df, estimate = as.numeric(estimate), conf.low = as.numeric(conf.low),
    conf.high = as.numeric(conf.high))
modality <- data.userlogs.raw$modalityname
ci.physical_notouch <- do.call(ci_method, list(duration[modality == "physical-notouch"],
    conf_level))
ci.physical_notouch <- setNames(as.list(c("physical_notouch", ci.physical_notouch)),
    c("modality", "estimate", "conf.low", "conf.high"))
ci.physical_touch <- do.call(ci_method, list(duration[modality == "physical-touch"],
    conf_level))
ci.physical_touch <- setNames(as.list(c("physical_touch", ci.physical_touch)), c("modality",
    "estimate", "conf.low", "conf.high"))
ci.virtual_prop <- do.call(ci_method, list(duration[modality == "virtual-prop"],
    conf_level))
ci.virtual_prop <- setNames(as.list(c("virtual_prop", ci.virtual_prop)), c("modality",
    "estimate", "conf.low", "conf.high"))
ci.virtual_mouse <- do.call(ci_method, list(duration[modality == "virtual-mouse"],
    conf_level))
ci.virtual_mouse <- setNames(as.list(c("virtual_mouse", ci.virtual_mouse)), c("modality",
    "estimate", "conf.low", "conf.high"))
df <- rbind.data.frame(ci.physical_notouch, ci.physical_touch, ci.virtual_prop, ci.virtual_mouse,
    make.row.names = FALSE, stringsAsFactors = FALSE)
df <- transform(df, estimate = as.numeric(estimate), conf.low = as.numeric(conf.low),
    conf.high = as.numeric(conf.high))
modality <- data.userlogs.raw$modalityname
ci.physical_notouch <- do.call(ci_method, list(duration[modality == "physical-notouch"],
    conf_level))
ci.physical_notouch <- setNames(as.list(c("physical_notouch", ci.physical_notouch)),
    c("modality", "estimate", "conf.low", "conf.high"))
ci.physical_touch <- do.call(ci_method, list(duration[modality == "physical-touch"],
    conf_level))
ci.physical_touch <- setNames(as.list(c("physical_touch", ci.physical_touch)), c("modality",
    "estimate", "conf.low", "conf.high"))
ci.virtual_prop <- do.call(ci_method, list(duration[modality == "virtual-prop"],
    conf_level))
ci.virtual_prop <- setNames(as.list(c("virtual_prop", ci.virtual_prop)), c("modality",
    "estimate", "conf.low", "conf.high"))
ci.virtual_mouse <- do.call(ci_method, list(duration[modality == "virtual-mouse"],
    conf_level))
ci.virtual_mouse <- setNames(as.list(c("virtual_mouse", ci.virtual_mouse)), c("modality",
    "estimate", "conf.low", "conf.high"))
df <- rbind.data.frame(ci.physical_notouch, ci.physical_touch, ci.virtual_prop, ci.virtual_mouse,
    make.row.names = FALSE, stringsAsFactors = FALSE)
df <- transform(df, estimate = as.numeric(estimate), conf.low = as.numeric(conf.low),
    conf.high = as.numeric(conf.high))
modality <- data.userlogs.raw$modalityname
ci.physical_notouch <- do.call(ci_method, list(duration[modality == "physical-notouch"],
    conf_level))
ci.physical_notouch <- setNames(as.list(c("physical_notouch", ci.physical_notouch)),
    c("modality", "estimate", "conf.low", "conf.high"))
ci.physical_touch <- do.call(ci_method, list(duration[modality == "physical-touch"],
    conf_level))
ci.physical_touch <- setNames(as.list(c("physical_touch", ci.physical_touch)), c("modality",
    "estimate", "conf.low", "conf.high"))
ci.virtual_prop <- do.call(ci_method, list(duration[modality == "virtual-prop"],
    conf_level))
ci.virtual_prop <- setNames(as.list(c("virtual_prop", ci.virtual_prop)), c("modality",
    "estimate", "conf.low", "conf.high"))
ci.virtual_mouse <- do.call(ci_method, list(duration[modality == "virtual-mouse"],
    conf_level))
ci.virtual_mouse <- setNames(as.list(c("virtual_mouse", ci.virtual_mouse)), c("modality",
    "estimate", "conf.low", "conf.high"))
df <- rbind.data.frame(ci.physical_notouch, ci.physical_touch, ci.virtual_prop, ci.virtual_mouse,
    make.row.names = FALSE, stringsAsFactors = FALSE)
df <- transform(df, estimate = as.numeric(estimate), conf.low = as.numeric(conf.low),
    conf.high = as.numeric(conf.high))
modality <- data.userlogs.raw$modalityname
ci.physical_notouch <- do.call(ci_method, list(duration[modality == "physical-notouch"],
    conf_level))
ci.physical_notouch <- setNames(as.list(c("physical_notouch", ci.physical_notouch)),
    c("modality", "estimate", "conf.low", "conf.high"))
ci.physical_touch <- do.call(ci_method, list(duration[modality == "physical-touch"],
    conf_level))
ci.physical_touch <- setNames(as.list(c("physical_touch", ci.physical_touch)), c("modality",
    "estimate", "conf.low", "conf.high"))
ci.virtual_prop <- do.call(ci_method, list(duration[modality == "virtual-prop"],
    conf_level))
ci.virtual_prop <- setNames(as.list(c("virtual_prop", ci.virtual_prop)), c("modality",
    "estimate", "conf.low", "conf.high"))
ci.virtual_mouse <- do.call(ci_method, list(duration[modality == "virtual-mouse"],
    conf_level))
ci.virtual_mouse <- setNames(as.list(c("virtual_mouse", ci.virtual_mouse)), c("modality",
    "estimate", "conf.low", "conf.high"))
df <- rbind.data.frame(ci.physical_notouch, ci.physical_touch, ci.virtual_prop, ci.virtual_mouse,
    make.row.names = FALSE, stringsAsFactors = FALSE)
df <- transform(df, estimate = as.numeric(estimate), conf.low = as.numeric(conf.low),
    conf.high = as.numeric(conf.high))
modality <- data.userlogs.raw$modalityname
ci.physical_notouch <- do.call(ci_method, list(duration[modality == "physical-notouch"],
    conf_level))
ci.physical_notouch <- setNames(as.list(c("physical_notouch", ci.physical_notouch)),
    c("modality", "estimate", "conf.low", "conf.high"))
ci.physical_touch <- do.call(ci_method, list(duration[modality == "physical-touch"],
    conf_level))
ci.physical_touch <- setNames(as.list(c("physical_touch", ci.physical_touch)), c("modality",
    "estimate", "conf.low", "conf.high"))
ci.virtual_prop <- do.call(ci_method, list(duration[modality == "virtual-prop"],
    conf_level))
ci.virtual_prop <- setNames(as.list(c("virtual_prop", ci.virtual_prop)), c("modality",
    "estimate", "conf.low", "conf.high"))
ci.virtual_mouse <- do.call(ci_method, list(duration[modality == "virtual-mouse"],
    conf_level))
ci.virtual_mouse <- setNames(as.list(c("virtual_mouse", ci.virtual_mouse)), c("modality",
    "estimate", "conf.low", "conf.high"))
df <- rbind.data.frame(ci.physical_notouch, ci.physical_touch, ci.virtual_prop, ci.virtual_mouse,
    make.row.names = FALSE, stringsAsFactors = FALSE)
df <- transform(df, estimate = as.numeric(estimate), conf.low = as.numeric(conf.low),
    conf.high = as.numeric(conf.high))
modality <- data.userlogs.raw$modalityname
ci.physical_notouch <- do.call(ci_method, list(duration[modality == "physical-notouch"],
    conf_level))
ci.physical_notouch <- setNames(as.list(c("physical_notouch", ci.physical_notouch)),
    c("modality", "estimate", "conf.low", "conf.high"))
ci.physical_touch <- do.call(ci_method, list(duration[modality == "physical-touch"],
    conf_level))
ci.physical_touch <- setNames(as.list(c("physical_touch", ci.physical_touch)), c("modality",
    "estimate", "conf.low", "conf.high"))
ci.virtual_prop <- do.call(ci_method, list(duration[modality == "virtual-prop"],
    conf_level))
ci.virtual_prop <- setNames(as.list(c("virtual_prop", ci.virtual_prop)), c("modality",
    "estimate", "conf.low", "conf.high"))
ci.virtual_mouse <- do.call(ci_method, list(duration[modality == "virtual-mouse"],
    conf_level))
ci.virtual_mouse <- setNames(as.list(c("virtual_mouse", ci.virtual_mouse)), c("modality",
    "estimate", "conf.low", "conf.high"))
df <- rbind.data.frame(ci.physical_notouch, ci.physical_touch, ci.virtual_prop, ci.virtual_mouse,
    make.row.names = FALSE, stringsAsFactors = FALSE)
df <- transform(df, estimate = as.numeric(estimate), conf.low = as.numeric(conf.low),
    conf.high = as.numeric(conf.high))
modality <- data.userlogs.raw$modalityname
ci.physical_notouch <- do.call(ci_method, list(duration[modality == "physical-notouch"],
    conf_level))
ci.physical_notouch <- setNames(as.list(c("physical_notouch", ci.physical_notouch)),
    c("modality", "estimate", "conf.low", "conf.high"))
ci.physical_touch <- do.call(ci_method, list(duration[modality == "physical-touch"],
    conf_level))
ci.physical_touch <- setNames(as.list(c("physical_touch", ci.physical_touch)), c("modality",
    "estimate", "conf.low", "conf.high"))
ci.virtual_prop <- do.call(ci_method, list(duration[modality == "virtual-prop"],
    conf_level))
ci.virtual_prop <- setNames(as.list(c("virtual_prop", ci.virtual_prop)), c("modality",
    "estimate", "conf.low", "conf.high"))
ci.virtual_mouse <- do.call(ci_method, list(duration[modality == "virtual-mouse"],
    conf_level))
ci.virtual_mouse <- setNames(as.list(c("virtual_mouse", ci.virtual_mouse)), c("modality",
    "estimate", "conf.low", "conf.high"))
df <- rbind.data.frame(ci.physical_notouch, ci.physical_touch, ci.virtual_prop, ci.virtual_mouse,
    make.row.names = FALSE, stringsAsFactors = FALSE)
df <- transform(df, estimate = as.numeric(estimate), conf.low = as.numeric(conf.low),
    conf.high = as.numeric(conf.high))
modality <- data.userlogs.raw$modalityname
ci.physical_notouch <- do.call(ci_method, list(duration[modality == "physical-notouch"],
    conf_level))
ci.physical_notouch <- setNames(as.list(c("physical_notouch", ci.physical_notouch)),
    c("modality", "estimate", "conf.low", "conf.high"))
ci.physical_touch <- do.call(ci_method, list(duration[modality == "physical-touch"],
    conf_level))
ci.physical_touch <- setNames(as.list(c("physical_touch", ci.physical_touch)), c("modality",
    "estimate", "conf.low", "conf.high"))
ci.virtual_prop <- do.call(ci_method, list(duration[modality == "virtual-prop"],
    conf_level))
ci.virtual_prop <- setNames(as.list(c("virtual_prop", ci.virtual_prop)), c("modality",
    "estimate", "conf.low", "conf.high"))
ci.virtual_mouse <- do.call(ci_method, list(duration[modality == "virtual-mouse"],
    conf_level))
ci.virtual_mouse <- setNames(as.list(c("virtual_mouse", ci.virtual_mouse)), c("modality",
    "estimate", "conf.low", "conf.high"))
df <- rbind.data.frame(ci.physical_notouch, ci.physical_touch, ci.virtual_prop, ci.virtual_mouse,
    make.row.names = FALSE, stringsAsFactors = FALSE)
df <- transform(df, estimate = as.numeric(estimate), conf.low = as.numeric(conf.low),
    conf.high = as.numeric(conf.high))
modality <- data.userlogs.raw$modalityname
ci.physical_notouch <- do.call(ci_method, list(duration[modality == "physical-notouch"],
    conf_level))
ci.physical_notouch <- setNames(as.list(c("physical_notouch", ci.physical_notouch)),
    c("modality", "estimate", "conf.low", "conf.high"))
ci.physical_touch <- do.call(ci_method, list(duration[modality == "physical-touch"],
    conf_level))
ci.physical_touch <- setNames(as.list(c("physical_touch", ci.physical_touch)), c("modality",
    "estimate", "conf.low", "conf.high"))
ci.virtual_prop <- do.call(ci_method, list(duration[modality == "virtual-prop"],
    conf_level))
ci.virtual_prop <- setNames(as.list(c("virtual_prop", ci.virtual_prop)), c("modality",
    "estimate", "conf.low", "conf.high"))
ci.virtual_mouse <- do.call(ci_method, list(duration[modality == "virtual-mouse"],
    conf_level))
ci.virtual_mouse <- setNames(as.list(c("virtual_mouse", ci.virtual_mouse)), c("modality",
    "estimate", "conf.low", "conf.high"))
df <- rbind.data.frame(ci.physical_notouch, ci.physical_touch, ci.virtual_prop, ci.virtual_mouse,
    make.row.names = FALSE, stringsAsFactors = FALSE)
df <- transform(df, estimate = as.numeric(estimate), conf.low = as.numeric(conf.low),
    conf.high = as.numeric(conf.high))
modality <- data.userlogs.raw$modalityname
ci.physical_notouch <- do.call(ci_method, list(duration[modality == "physical-notouch"],
    conf_level))
ci.physical_notouch <- setNames(as.list(c("physical_notouch", ci.physical_notouch)),
    c("modality", "estimate", "conf.low", "conf.high"))
ci.physical_touch <- do.call(ci_method, list(duration[modality == "physical-touch"],
    conf_level))
ci.physical_touch <- setNames(as.list(c("physical_touch", ci.physical_touch)), c("modality",
    "estimate", "conf.low", "conf.high"))
ci.virtual_prop <- do.call(ci_method, list(duration[modality == "virtual-prop"],
    conf_level))
ci.virtual_prop <- setNames(as.list(c("virtual_prop", ci.virtual_prop)), c("modality",
    "estimate", "conf.low", "conf.high"))
ci.virtual_mouse <- do.call(ci_method, list(duration[modality == "virtual-mouse"],
    conf_level))
ci.virtual_mouse <- setNames(as.list(c("virtual_mouse", ci.virtual_mouse)), c("modality",
    "estimate", "conf.low", "conf.high"))
df <- rbind.data.frame(ci.physical_notouch, ci.physical_touch, ci.virtual_prop, ci.virtual_mouse,
    make.row.names = FALSE, stringsAsFactors = FALSE)
df <- transform(df, estimate = as.numeric(estimate), conf.low = as.numeric(conf.low),
    conf.high = as.numeric(conf.high))
modality <- data.userlogs.raw$modalityname
ci.physical_notouch <- do.call(ci_method, list(duration[modality == "physical-notouch"],
    conf_level))
ci.physical_notouch <- setNames(as.list(c("physical_notouch", ci.physical_notouch)),
    c("modality", "estimate", "conf.low", "conf.high"))
ci.physical_touch <- do.call(ci_method, list(duration[modality == "physical-touch"],
    conf_level))
ci.physical_touch <- setNames(as.list(c("physical_touch", ci.physical_touch)), c("modality",
    "estimate", "conf.low", "conf.high"))
ci.virtual_prop <- do.call(ci_method, list(duration[modality == "virtual-prop"],
    conf_level))
ci.virtual_prop <- setNames(as.list(c("virtual_prop", ci.virtual_prop)), c("modality",
    "estimate", "conf.low", "conf.high"))
ci.virtual_mouse <- do.call(ci_method, list(duration[modality == "virtual-mouse"],
    conf_level))
ci.virtual_mouse <- setNames(as.list(c("virtual_mouse", ci.virtual_mouse)), c("modality",
    "estimate", "conf.low", "conf.high"))
df <- rbind.data.frame(ci.physical_notouch, ci.physical_touch, ci.virtual_prop, ci.virtual_mouse,
    make.row.names = FALSE, stringsAsFactors = FALSE)
df <- transform(df, estimate = as.numeric(estimate), conf.low = as.numeric(conf.low),
    conf.high = as.numeric(conf.high))
modality <- data.userlogs.raw$modalityname
ci.physical_notouch <- do.call(ci_method, list(duration[modality == "physical-notouch"],
    conf_level))
ci.physical_notouch <- setNames(as.list(c("physical_notouch", ci.physical_notouch)),
    c("modality", "estimate", "conf.low", "conf.high"))
ci.physical_touch <- do.call(ci_method, list(duration[modality == "physical-touch"],
    conf_level))
ci.physical_touch <- setNames(as.list(c("physical_touch", ci.physical_touch)), c("modality",
    "estimate", "conf.low", "conf.high"))
ci.virtual_prop <- do.call(ci_method, list(duration[modality == "virtual-prop"],
    conf_level))
ci.virtual_prop <- setNames(as.list(c("virtual_prop", ci.virtual_prop)), c("modality",
    "estimate", "conf.low", "conf.high"))
ci.virtual_mouse <- do.call(ci_method, list(duration[modality == "virtual-mouse"],
    conf_level))
ci.virtual_mouse <- setNames(as.list(c("virtual_mouse", ci.virtual_mouse)), c("modality",
    "estimate", "conf.low", "conf.high"))
df <- rbind.data.frame(ci.physical_notouch, ci.physical_touch, ci.virtual_prop, ci.virtual_mouse,
    make.row.names = FALSE, stringsAsFactors = FALSE)
df <- transform(df, estimate = as.numeric(estimate), conf.low = as.numeric(conf.low),
    conf.high = as.numeric(conf.high))
modality <- data.userlogs.raw$modalityname
ci.physical_notouch <- do.call(ci_method, list(duration[modality == "physical-notouch"],
    conf_level))
ci.physical_notouch <- setNames(as.list(c("physical_notouch", ci.physical_notouch)),
    c("modality", "estimate", "conf.low", "conf.high"))
ci.physical_touch <- do.call(ci_method, list(duration[modality == "physical-touch"],
    conf_level))
ci.physical_touch <- setNames(as.list(c("physical_touch", ci.physical_touch)), c("modality",
    "estimate", "conf.low", "conf.high"))
ci.virtual_prop <- do.call(ci_method, list(duration[modality == "virtual-prop"],
    conf_level))
ci.virtual_prop <- setNames(as.list(c("virtual_prop", ci.virtual_prop)), c("modality",
    "estimate", "conf.low", "conf.high"))
ci.virtual_mouse <- do.call(ci_method, list(duration[modality == "virtual-mouse"],
    conf_level))
ci.virtual_mouse <- setNames(as.list(c("virtual_mouse", ci.virtual_mouse)), c("modality",
    "estimate", "conf.low", "conf.high"))
df <- rbind.data.frame(ci.physical_notouch, ci.physical_touch, ci.virtual_prop, ci.virtual_mouse,
    make.row.names = FALSE, stringsAsFactors = FALSE)
df <- transform(df, estimate = as.numeric(estimate), conf.low = as.numeric(conf.low),
    conf.high = as.numeric(conf.high))
modality <- data.userlogs.raw$modalityname
ci.physical_notouch <- do.call(ci_method, list(duration[modality == "physical-notouch"],
    conf_level))
ci.physical_notouch <- setNames(as.list(c("physical_notouch", ci.physical_notouch)),
    c("modality", "estimate", "conf.low", "conf.high"))
ci.physical_touch <- do.call(ci_method, list(duration[modality == "physical-touch"],
    conf_level))
ci.physical_touch <- setNames(as.list(c("physical_touch", ci.physical_touch)), c("modality",
    "estimate", "conf.low", "conf.high"))
ci.virtual_prop <- do.call(ci_method, list(duration[modality == "virtual-prop"],
    conf_level))
ci.virtual_prop <- setNames(as.list(c("virtual_prop", ci.virtual_prop)), c("modality",
    "estimate", "conf.low", "conf.high"))
ci.virtual_mouse <- do.call(ci_method, list(duration[modality == "virtual-mouse"],
    conf_level))
ci.virtual_mouse <- setNames(as.list(c("virtual_mouse", ci.virtual_mouse)), c("modality",
    "estimate", "conf.low", "conf.high"))
df <- rbind.data.frame(ci.physical_notouch, ci.physical_touch, ci.virtual_prop, ci.virtual_mouse,
    make.row.names = FALSE, stringsAsFactors = FALSE)
df <- transform(df, estimate = as.numeric(estimate), conf.low = as.numeric(conf.low),
    conf.high = as.numeric(conf.high))
modality <- data.userlogs.raw$modalityname
ci.physical_notouch <- do.call(ci_method, list(duration[modality == "physical-notouch"],
    conf_level))
ci.physical_notouch <- setNames(as.list(c("physical_notouch", ci.physical_notouch)),
    c("modality", "estimate", "conf.low", "conf.high"))
ci.physical_touch <- do.call(ci_method, list(duration[modality == "physical-touch"],
    conf_level))
ci.physical_touch <- setNames(as.list(c("physical_touch", ci.physical_touch)), c("modality",
    "estimate", "conf.low", "conf.high"))
ci.virtual_prop <- do.call(ci_method, list(duration[modality == "virtual-prop"],
    conf_level))
ci.virtual_prop <- setNames(as.list(c("virtual_prop", ci.virtual_prop)), c("modality",
    "estimate", "conf.low", "conf.high"))
ci.virtual_mouse <- do.call(ci_method, list(duration[modality == "virtual-mouse"],
    conf_level))
ci.virtual_mouse <- setNames(as.list(c("virtual_mouse", ci.virtual_mouse)), c("modality",
    "estimate", "conf.low", "conf.high"))
df <- rbind.data.frame(ci.physical_notouch, ci.physical_touch, ci.virtual_prop, ci.virtual_mouse,
    make.row.names = FALSE, stringsAsFactors = FALSE)
df <- transform(df, estimate = as.numeric(estimate), conf.low = as.numeric(conf.low),
    conf.high = as.numeric(conf.high))
modality <- data.userlogs.raw$modalityname
ci.physical_notouch <- do.call(ci_method, list(duration[modality == "physical-notouch"],
    conf_level))
ci.physical_notouch <- setNames(as.list(c("physical_notouch", ci.physical_notouch)),
    c("modality", "estimate", "conf.low", "conf.high"))
ci.physical_touch <- do.call(ci_method, list(duration[modality == "physical-touch"],
    conf_level))
ci.physical_touch <- setNames(as.list(c("physical_touch", ci.physical_touch)), c("modality",
    "estimate", "conf.low", "conf.high"))
ci.virtual_prop <- do.call(ci_method, list(duration[modality == "virtual-prop"],
    conf_level))
ci.virtual_prop <- setNames(as.list(c("virtual_prop", ci.virtual_prop)), c("modality",
    "estimate", "conf.low", "conf.high"))
ci.virtual_mouse <- do.call(ci_method, list(duration[modality == "virtual-mouse"],
    conf_level))
ci.virtual_mouse <- setNames(as.list(c("virtual_mouse", ci.virtual_mouse)), c("modality",
    "estimate", "conf.low", "conf.high"))
df <- rbind.data.frame(ci.physical_notouch, ci.physical_touch, ci.virtual_prop, ci.virtual_mouse,
    make.row.names = FALSE, stringsAsFactors = FALSE)
df <- transform(df, estimate = as.numeric(estimate), conf.low = as.numeric(conf.low),
    conf.high = as.numeric(conf.high))
modality <- data.userlogs.raw$modalityname
ci.physical_notouch <- do.call(ci_method, list(duration[modality == "physical-notouch"],
    conf_level))
ci.physical_notouch <- setNames(as.list(c("physical_notouch", ci.physical_notouch)),
    c("modality", "estimate", "conf.low", "conf.high"))
ci.physical_touch <- do.call(ci_method, list(duration[modality == "physical-touch"],
    conf_level))
ci.physical_touch <- setNames(as.list(c("physical_touch", ci.physical_touch)), c("modality",
    "estimate", "conf.low", "conf.high"))
ci.virtual_prop <- do.call(ci_method, list(duration[modality == "virtual-prop"],
    conf_level))
ci.virtual_prop <- setNames(as.list(c("virtual_prop", ci.virtual_prop)), c("modality",
    "estimate", "conf.low", "conf.high"))
ci.virtual_mouse <- do.call(ci_method, list(duration[modality == "virtual-mouse"],
    conf_level))
ci.virtual_mouse <- setNames(as.list(c("virtual_mouse", ci.virtual_mouse)), c("modality",
    "estimate", "conf.low", "conf.high"))
df <- rbind.data.frame(ci.physical_notouch, ci.physical_touch, ci.virtual_prop, ci.virtual_mouse,
    make.row.names = FALSE, stringsAsFactors = FALSE)
df <- transform(df, estimate = as.numeric(estimate), conf.low = as.numeric(conf.low),
    conf.high = as.numeric(conf.high))
Warning in norm.inter(t, adj.alpha) :
  extreme order statistics used as endpoints
Warning in norm.inter(t, adj.alpha) :
  extreme order statistics used as endpoints
Warning in norm.inter(t, adj.alpha) :
  extreme order statistics used as endpoints
Warning in norm.inter(t, adj.alpha) :
  extreme order statistics used as endpoints
Warning in norm.inter(t, adj.alpha) :
  extreme order statistics used as endpoints
Warning in norm.inter(t, adj.alpha) :
  extreme order statistics used as endpoints
Warning in norm.inter(t, adj.alpha) :
  extreme order statistics used as endpoints
Warning in norm.inter(t, adj.alpha) :
  extreme order statistics used as endpoints
Warning in norm.inter(t, adj.alpha) :
  extreme order statistics used as endpoints
Warning in norm.inter(t, adj.alpha) :
  extreme order statistics used as endpoints
Warning in norm.inter(t, adj.alpha) :
  extreme order statistics used as endpoints
Warning in norm.inter(t, adj.alpha) :
  extreme order statistics used as endpoints
Warning in norm.inter(t, adj.alpha) :
  extreme order statistics used as endpoints
Warning in norm.inter(t, adj.alpha) :
  extreme order statistics used as endpoints
Warning in norm.inter(t, adj.alpha) :
  extreme order statistics used as endpoints
Warning in norm.inter(t, adj.alpha) :
  extreme order statistics used as endpoints
Warning in norm.inter(t, adj.alpha) :
  extreme order statistics used as endpoints
Warning in norm.inter(t, adj.alpha) :
  extreme order statistics used as endpoints
Warning in norm.inter(t, adj.alpha) :
  extreme order statistics used as endpoints
Warning in norm.inter(t, adj.alpha) :
  extreme order statistics used as endpoints
Warning in norm.inter(t, adj.alpha) :
  extreme order statistics used as endpoints
Warning in norm.inter(t, adj.alpha) :
  extreme order statistics used as endpoints
Warning in norm.inter(t, adj.alpha) :
  extreme order statistics used as endpoints
Warning in norm.inter(t, adj.alpha) :
  extreme order statistics used as endpoints
Warning in norm.inter(t, adj.alpha) :
  extreme order statistics used as endpoints
Warning in norm.inter(t, adj.alpha) :
  extreme order statistics used as endpoints
Warning in norm.inter(t, adj.alpha) :
  extreme order statistics used as endpoints
Warning in norm.inter(t, adj.alpha) :
  extreme order statistics used as endpoints
Warning in norm.inter(t, adj.alpha) :
  extreme order statistics used as endpoints
Warning in norm.inter(t, adj.alpha) :
  extreme order statistics used as endpoints
Warning in norm.inter(t, adj.alpha) :
  extreme order statistics used as endpoints
Warning in norm.inter(t, adj.alpha) :
  extreme order statistics used as endpoints
Warning in norm.inter(t, adj.alpha) :
  extreme order statistics used as endpoints
Warning in norm.inter(t, adj.alpha) :
  extreme order statistics used as endpoints
Warning in norm.inter(t, adj.alpha) :
  extreme order statistics used as endpoints
Warning in norm.inter(t, adj.alpha) :
  extreme order statistics used as endpoints
Warning in norm.inter(t, adj.alpha) :
  extreme order statistics used as endpoints
Warning in norm.inter(t, adj.alpha) :
  extreme order statistics used as endpoints
Warning in norm.inter(t, adj.alpha) :
  extreme order statistics used as endpoints
Warning in norm.inter(t, adj.alpha) :
  extreme order statistics used as endpoints
Warning in norm.inter(t, adj.alpha) :
  extreme order statistics used as endpoints
Warning in norm.inter(t, adj.alpha) :
  extreme order statistics used as endpoints
Warning in norm.inter(t, adj.alpha) :
  extreme order statistics used as endpoints
Warning in norm.inter(t, adj.alpha) :
  extreme order statistics used as endpoints
Warning in norm.inter(t, adj.alpha) :
  extreme order statistics used as endpoints
Warning in norm.inter(t, adj.alpha) :
  extreme order statistics used as endpoints
Warning in norm.inter(t, adj.alpha) :
  extreme order statistics used as endpoints
Warning in norm.inter(t, adj.alpha) :
  extreme order statistics used as endpoints
Warning: in norm.inter(t, adj.alpha): extreme order statistics used as endpoints
-- tryStack sys.calls: tools:::buildVignettes -> engine$weave -> vweave_rmarkdown -> rmarkdown::render -> knitr::knit -> process_file -> withCallingHandlers -> process_group -> process_group.block -> call_block -> block_exec -> eng_r -> in_dir -> evaluate -> evaluate::evaluate -> evaluate_call -> timing_fn -> handle -> withCallingHandlers -> withVisible -> eval -> eval -> execute_multiverse -> lapply -> FUN -> mcmapply -> mclapply -> lapply -> FUN -> .mapply ->  -> tryStack -> lapply -> FUN -> FUN -> do.call - ci_method -> bootstrappedCI -> boot::boot.ci -> bca.ci -> norm.inter -> warning -> norm.inter(t, adj.alpha)
Warning: in norm.inter(t, adj.alpha): extreme order statistics used as endpoints
-- tryStack sys.calls: tools:::buildVignettes -> engine$weave -> vweave_rmarkdown -> rmarkdown::render -> knitr::knit -> process_file -> withCallingHandlers -> process_group -> process_group.block -> call_block -> block_exec -> eng_r -> in_dir -> evaluate -> evaluate::evaluate -> evaluate_call -> timing_fn -> handle -> withCallingHandlers -> withVisible -> eval -> eval -> execute_multiverse -> lapply -> FUN -> mcmapply -> mclapply -> lapply -> FUN -> .mapply ->  -> tryStack -> lapply -> FUN -> FUN -> do.call - ci_method -> bootstrappedCI -> boot::boot.ci -> bca.ci -> norm.inter -> warning -> norm.inter(t, adj.alpha)
diff.touch_notouch <- duration[modality == "physical-notouch"] - duration[modality ==
    "physical-touch"]
`physical_touch-physical_notouch` <- do.call(ci_method, list(diff.touch_notouch,
    conf_level))
`physical_touch-physical_notouch` <- setNames(as.list(c("physical_touch-physical_notouch",
    `physical_touch-physical_notouch`)), c("modality", "estimate", "conf.low", "conf.high"))
diff.notouch_prop <- duration[modality == "physical-notouch"] - duration[modality ==
    "virtual-prop"]
`physical_notouch-virtual_prop` <- do.call(ci_method, list(diff.notouch_prop, conf_level))
`physical_notouch-virtual_prop` <- setNames(as.list(c("physical_notouch-virtual_prop",
    `physical_notouch-virtual_prop`)), c("modality", "estimate", "conf.low", "conf.high"))
diff.propr_mouse <- duration[modality == "virtual-prop"] - duration[modality == "virtual-mouse"]
`virtual_prop-virtual_mouse` <- do.call(ci_method, list(diff.propr_mouse, conf_level))
`virtual_prop-virtual_mouse` <- setNames(as.list(c("virtual_prop-virtual_mouse",
    `virtual_prop-virtual_mouse`)), c("modality", "estimate", "conf.low", "conf.high"))
df.diffs <- rbind.data.frame(`physical_touch-physical_notouch`, `physical_notouch-virtual_prop`,
    `virtual_prop-virtual_mouse`, make.row.names = FALSE, stringsAsFactors = FALSE)
df.diffs <- transform(df.diffs, estimate = as.numeric(estimate), conf.low = as.numeric(conf.low),
    conf.high = as.numeric(conf.high))
diff.touch_notouch <- duration[modality == "physical-notouch"] - duration[modality ==
    "physical-touch"]
`physical_touch-physical_notouch` <- do.call(ci_method, list(diff.touch_notouch,
    conf_level))
`physical_touch-physical_notouch` <- setNames(as.list(c("physical_touch-physical_notouch",
    `physical_touch-physical_notouch`)), c("modality", "estimate", "conf.low", "conf.high"))
diff.notouch_prop <- duration[modality == "physical-notouch"] - duration[modality ==
    "virtual-prop"]
`physical_notouch-virtual_prop` <- do.call(ci_method, list(diff.notouch_prop, conf_level))
`physical_notouch-virtual_prop` <- setNames(as.list(c("physical_notouch-virtual_prop",
    `physical_notouch-virtual_prop`)), c("modality", "estimate", "conf.low", "conf.high"))
diff.propr_mouse <- duration[modality == "virtual-prop"] - duration[modality == "virtual-mouse"]
`virtual_prop-virtual_mouse` <- do.call(ci_method, list(diff.propr_mouse, conf_level))
`virtual_prop-virtual_mouse` <- setNames(as.list(c("virtual_prop-virtual_mouse",
    `virtual_prop-virtual_mouse`)), c("modality", "estimate", "conf.low", "conf.high"))
df.diffs <- rbind.data.frame(`physical_touch-physical_notouch`, `physical_notouch-virtual_prop`,
    `virtual_prop-virtual_mouse`, make.row.names = FALSE, stringsAsFactors = FALSE)
df.diffs <- transform(df.diffs, estimate = as.numeric(estimate), conf.low = as.numeric(conf.low),
    conf.high = as.numeric(conf.high))
diff.touch_notouch <- duration[modality == "physical-notouch"] - duration[modality ==
    "physical-touch"]
`physical_touch-physical_notouch` <- do.call(ci_method, list(diff.touch_notouch,
    conf_level))
`physical_touch-physical_notouch` <- setNames(as.list(c("physical_touch-physical_notouch",
    `physical_touch-physical_notouch`)), c("modality", "estimate", "conf.low", "conf.high"))
diff.notouch_prop <- duration[modality == "physical-notouch"] - duration[modality ==
    "virtual-prop"]
`physical_notouch-virtual_prop` <- do.call(ci_method, list(diff.notouch_prop, conf_level))
`physical_notouch-virtual_prop` <- setNames(as.list(c("physical_notouch-virtual_prop",
    `physical_notouch-virtual_prop`)), c("modality", "estimate", "conf.low", "conf.high"))
diff.propr_mouse <- duration[modality == "virtual-prop"] - duration[modality == "virtual-mouse"]
`virtual_prop-virtual_mouse` <- do.call(ci_method, list(diff.propr_mouse, conf_level))
`virtual_prop-virtual_mouse` <- setNames(as.list(c("virtual_prop-virtual_mouse",
    `virtual_prop-virtual_mouse`)), c("modality", "estimate", "conf.low", "conf.high"))
df.diffs <- rbind.data.frame(`physical_touch-physical_notouch`, `physical_notouch-virtual_prop`,
    `virtual_prop-virtual_mouse`, make.row.names = FALSE, stringsAsFactors = FALSE)
df.diffs <- transform(df.diffs, estimate = as.numeric(estimate), conf.low = as.numeric(conf.low),
    conf.high = as.numeric(conf.high))
diff.touch_notouch <- duration[modality == "physical-notouch"] - duration[modality ==
    "physical-touch"]
`physical_touch-physical_notouch` <- do.call(ci_method, list(diff.touch_notouch,
    conf_level))
`physical_touch-physical_notouch` <- setNames(as.list(c("physical_touch-physical_notouch",
    `physical_touch-physical_notouch`)), c("modality", "estimate", "conf.low", "conf.high"))
diff.notouch_prop <- duration[modality == "physical-notouch"] - duration[modality ==
    "virtual-prop"]
`physical_notouch-virtual_prop` <- do.call(ci_method, list(diff.notouch_prop, conf_level))
`physical_notouch-virtual_prop` <- setNames(as.list(c("physical_notouch-virtual_prop",
    `physical_notouch-virtual_prop`)), c("modality", "estimate", "conf.low", "conf.high"))
diff.propr_mouse <- duration[modality == "virtual-prop"] - duration[modality == "virtual-mouse"]
`virtual_prop-virtual_mouse` <- do.call(ci_method, list(diff.propr_mouse, conf_level))
`virtual_prop-virtual_mouse` <- setNames(as.list(c("virtual_prop-virtual_mouse",
    `virtual_prop-virtual_mouse`)), c("modality", "estimate", "conf.low", "conf.high"))
df.diffs <- rbind.data.frame(`physical_touch-physical_notouch`, `physical_notouch-virtual_prop`,
    `virtual_prop-virtual_mouse`, make.row.names = FALSE, stringsAsFactors = FALSE)
df.diffs <- transform(df.diffs, estimate = as.numeric(estimate), conf.low = as.numeric(conf.low),
    conf.high = as.numeric(conf.high))
diff.touch_notouch <- duration[modality == "physical-notouch"] - duration[modality ==
    "physical-touch"]
`physical_touch-physical_notouch` <- do.call(ci_method, list(diff.touch_notouch,
    conf_level))
`physical_touch-physical_notouch` <- setNames(as.list(c("physical_touch-physical_notouch",
    `physical_touch-physical_notouch`)), c("modality", "estimate", "conf.low", "conf.high"))
diff.notouch_prop <- duration[modality == "physical-notouch"] - duration[modality ==
    "virtual-prop"]
`physical_notouch-virtual_prop` <- do.call(ci_method, list(diff.notouch_prop, conf_level))
`physical_notouch-virtual_prop` <- setNames(as.list(c("physical_notouch-virtual_prop",
    `physical_notouch-virtual_prop`)), c("modality", "estimate", "conf.low", "conf.high"))
diff.propr_mouse <- duration[modality == "virtual-prop"] - duration[modality == "virtual-mouse"]
`virtual_prop-virtual_mouse` <- do.call(ci_method, list(diff.propr_mouse, conf_level))
`virtual_prop-virtual_mouse` <- setNames(as.list(c("virtual_prop-virtual_mouse",
    `virtual_prop-virtual_mouse`)), c("modality", "estimate", "conf.low", "conf.high"))
df.diffs <- rbind.data.frame(`physical_touch-physical_notouch`, `physical_notouch-virtual_prop`,
    `virtual_prop-virtual_mouse`, make.row.names = FALSE, stringsAsFactors = FALSE)
df.diffs <- transform(df.diffs, estimate = as.numeric(estimate), conf.low = as.numeric(conf.low),
    conf.high = as.numeric(conf.high))
diff.touch_notouch <- duration[modality == "physical-notouch"] - duration[modality ==
    "physical-touch"]
`physical_touch-physical_notouch` <- do.call(ci_method, list(diff.touch_notouch,
    conf_level))
`physical_touch-physical_notouch` <- setNames(as.list(c("physical_touch-physical_notouch",
    `physical_touch-physical_notouch`)), c("modality", "estimate", "conf.low", "conf.high"))
diff.notouch_prop <- duration[modality == "physical-notouch"] - duration[modality ==
    "virtual-prop"]
`physical_notouch-virtual_prop` <- do.call(ci_method, list(diff.notouch_prop, conf_level))
`physical_notouch-virtual_prop` <- setNames(as.list(c("physical_notouch-virtual_prop",
    `physical_notouch-virtual_prop`)), c("modality", "estimate", "conf.low", "conf.high"))
diff.propr_mouse <- duration[modality == "virtual-prop"] - duration[modality == "virtual-mouse"]
`virtual_prop-virtual_mouse` <- do.call(ci_method, list(diff.propr_mouse, conf_level))
`virtual_prop-virtual_mouse` <- setNames(as.list(c("virtual_prop-virtual_mouse",
    `virtual_prop-virtual_mouse`)), c("modality", "estimate", "conf.low", "conf.high"))
df.diffs <- rbind.data.frame(`physical_touch-physical_notouch`, `physical_notouch-virtual_prop`,
    `virtual_prop-virtual_mouse`, make.row.names = FALSE, stringsAsFactors = FALSE)
df.diffs <- transform(df.diffs, estimate = as.numeric(estimate), conf.low = as.numeric(conf.low),
    conf.high = as.numeric(conf.high))
diff.touch_notouch <- duration[modality == "physical-notouch"] - duration[modality ==
    "physical-touch"]
`physical_touch-physical_notouch` <- do.call(ci_method, list(diff.touch_notouch,
    conf_level))
`physical_touch-physical_notouch` <- setNames(as.list(c("physical_touch-physical_notouch",
    `physical_touch-physical_notouch`)), c("modality", "estimate", "conf.low", "conf.high"))
diff.notouch_prop <- duration[modality == "physical-notouch"] - duration[modality ==
    "virtual-prop"]
`physical_notouch-virtual_prop` <- do.call(ci_method, list(diff.notouch_prop, conf_level))
`physical_notouch-virtual_prop` <- setNames(as.list(c("physical_notouch-virtual_prop",
    `physical_notouch-virtual_prop`)), c("modality", "estimate", "conf.low", "conf.high"))
diff.propr_mouse <- duration[modality == "virtual-prop"] - duration[modality == "virtual-mouse"]
`virtual_prop-virtual_mouse` <- do.call(ci_method, list(diff.propr_mouse, conf_level))
`virtual_prop-virtual_mouse` <- setNames(as.list(c("virtual_prop-virtual_mouse",
    `virtual_prop-virtual_mouse`)), c("modality", "estimate", "conf.low", "conf.high"))
df.diffs <- rbind.data.frame(`physical_touch-physical_notouch`, `physical_notouch-virtual_prop`,
    `virtual_prop-virtual_mouse`, make.row.names = FALSE, stringsAsFactors = FALSE)
df.diffs <- transform(df.diffs, estimate = as.numeric(estimate), conf.low = as.numeric(conf.low),
    conf.high = as.numeric(conf.high))
diff.touch_notouch <- duration[modality == "physical-notouch"] - duration[modality ==
    "physical-touch"]
`physical_touch-physical_notouch` <- do.call(ci_method, list(diff.touch_notouch,
    conf_level))
`physical_touch-physical_notouch` <- setNames(as.list(c("physical_touch-physical_notouch",
    `physical_touch-physical_notouch`)), c("modality", "estimate", "conf.low", "conf.high"))
diff.notouch_prop <- duration[modality == "physical-notouch"] - duration[modality ==
    "virtual-prop"]
`physical_notouch-virtual_prop` <- do.call(ci_method, list(diff.notouch_prop, conf_level))
`physical_notouch-virtual_prop` <- setNames(as.list(c("physical_notouch-virtual_prop",
    `physical_notouch-virtual_prop`)), c("modality", "estimate", "conf.low", "conf.high"))
diff.propr_mouse <- duration[modality == "virtual-prop"] - duration[modality == "virtual-mouse"]
`virtual_prop-virtual_mouse` <- do.call(ci_method, list(diff.propr_mouse, conf_level))
`virtual_prop-virtual_mouse` <- setNames(as.list(c("virtual_prop-virtual_mouse",
    `virtual_prop-virtual_mouse`)), c("modality", "estimate", "conf.low", "conf.high"))
df.diffs <- rbind.data.frame(`physical_touch-physical_notouch`, `physical_notouch-virtual_prop`,
    `virtual_prop-virtual_mouse`, make.row.names = FALSE, stringsAsFactors = FALSE)
df.diffs <- transform(df.diffs, estimate = as.numeric(estimate), conf.low = as.numeric(conf.low),
    conf.high = as.numeric(conf.high))
diff.touch_notouch <- duration[modality == "physical-notouch"] - duration[modality ==
    "physical-touch"]
`physical_touch-physical_notouch` <- do.call(ci_method, list(diff.touch_notouch,
    conf_level))
`physical_touch-physical_notouch` <- setNames(as.list(c("physical_touch-physical_notouch",
    `physical_touch-physical_notouch`)), c("modality", "estimate", "conf.low", "conf.high"))
diff.notouch_prop <- duration[modality == "physical-notouch"] - duration[modality ==
    "virtual-prop"]
`physical_notouch-virtual_prop` <- do.call(ci_method, list(diff.notouch_prop, conf_level))
`physical_notouch-virtual_prop` <- setNames(as.list(c("physical_notouch-virtual_prop",
    `physical_notouch-virtual_prop`)), c("modality", "estimate", "conf.low", "conf.high"))
diff.propr_mouse <- duration[modality == "virtual-prop"] - duration[modality == "virtual-mouse"]
`virtual_prop-virtual_mouse` <- do.call(ci_method, list(diff.propr_mouse, conf_level))
`virtual_prop-virtual_mouse` <- setNames(as.list(c("virtual_prop-virtual_mouse",
    `virtual_prop-virtual_mouse`)), c("modality", "estimate", "conf.low", "conf.high"))
df.diffs <- rbind.data.frame(`physical_touch-physical_notouch`, `physical_notouch-virtual_prop`,
    `virtual_prop-virtual_mouse`, make.row.names = FALSE, stringsAsFactors = FALSE)
df.diffs <- transform(df.diffs, estimate = as.numeric(estimate), conf.low = as.numeric(conf.low),
    conf.high = as.numeric(conf.high))
diff.touch_notouch <- duration[modality == "physical-notouch"] - duration[modality ==
    "physical-touch"]
`physical_touch-physical_notouch` <- do.call(ci_method, list(diff.touch_notouch,
    conf_level))
`physical_touch-physical_notouch` <- setNames(as.list(c("physical_touch-physical_notouch",
    `physical_touch-physical_notouch`)), c("modality", "estimate", "conf.low", "conf.high"))
diff.notouch_prop <- duration[modality == "physical-notouch"] - duration[modality ==
    "virtual-prop"]
`physical_notouch-virtual_prop` <- do.call(ci_method, list(diff.notouch_prop, conf_level))
`physical_notouch-virtual_prop` <- setNames(as.list(c("physical_notouch-virtual_prop",
    `physical_notouch-virtual_prop`)), c("modality", "estimate", "conf.low", "conf.high"))
diff.propr_mouse <- duration[modality == "virtual-prop"] - duration[modality == "virtual-mouse"]
`virtual_prop-virtual_mouse` <- do.call(ci_method, list(diff.propr_mouse, conf_level))
`virtual_prop-virtual_mouse` <- setNames(as.list(c("virtual_prop-virtual_mouse",
    `virtual_prop-virtual_mouse`)), c("modality", "estimate", "conf.low", "conf.high"))
df.diffs <- rbind.data.frame(`physical_touch-physical_notouch`, `physical_notouch-virtual_prop`,
    `virtual_prop-virtual_mouse`, make.row.names = FALSE, stringsAsFactors = FALSE)
df.diffs <- transform(df.diffs, estimate = as.numeric(estimate), conf.low = as.numeric(conf.low),
    conf.high = as.numeric(conf.high))
diff.touch_notouch <- duration[modality == "physical-notouch"] - duration[modality ==
    "physical-touch"]
`physical_touch-physical_notouch` <- do.call(ci_method, list(diff.touch_notouch,
    conf_level))
`physical_touch-physical_notouch` <- setNames(as.list(c("physical_touch-physical_notouch",
    `physical_touch-physical_notouch`)), c("modality", "estimate", "conf.low", "conf.high"))
diff.notouch_prop <- duration[modality == "physical-notouch"] - duration[modality ==
    "virtual-prop"]
`physical_notouch-virtual_prop` <- do.call(ci_method, list(diff.notouch_prop, conf_level))
`physical_notouch-virtual_prop` <- setNames(as.list(c("physical_notouch-virtual_prop",
    `physical_notouch-virtual_prop`)), c("modality", "estimate", "conf.low", "conf.high"))
diff.propr_mouse <- duration[modality == "virtual-prop"] - duration[modality == "virtual-mouse"]
`virtual_prop-virtual_mouse` <- do.call(ci_method, list(diff.propr_mouse, conf_level))
`virtual_prop-virtual_mouse` <- setNames(as.list(c("virtual_prop-virtual_mouse",
    `virtual_prop-virtual_mouse`)), c("modality", "estimate", "conf.low", "conf.high"))
df.diffs <- rbind.data.frame(`physical_touch-physical_notouch`, `physical_notouch-virtual_prop`,
    `virtual_prop-virtual_mouse`, make.row.names = FALSE, stringsAsFactors = FALSE)
df.diffs <- transform(df.diffs, estimate = as.numeric(estimate), conf.low = as.numeric(conf.low),
    conf.high = as.numeric(conf.high))
diff.touch_notouch <- duration[modality == "physical-notouch"] - duration[modality ==
    "physical-touch"]
`physical_touch-physical_notouch` <- do.call(ci_method, list(diff.touch_notouch,
    conf_level))
`physical_touch-physical_notouch` <- setNames(as.list(c("physical_touch-physical_notouch",
    `physical_touch-physical_notouch`)), c("modality", "estimate", "conf.low", "conf.high"))
diff.notouch_prop <- duration[modality == "physical-notouch"] - duration[modality ==
    "virtual-prop"]
`physical_notouch-virtual_prop` <- do.call(ci_method, list(diff.notouch_prop, conf_level))
`physical_notouch-virtual_prop` <- setNames(as.list(c("physical_notouch-virtual_prop",
    `physical_notouch-virtual_prop`)), c("modality", "estimate", "conf.low", "conf.high"))
diff.propr_mouse <- duration[modality == "virtual-prop"] - duration[modality == "virtual-mouse"]
`virtual_prop-virtual_mouse` <- do.call(ci_method, list(diff.propr_mouse, conf_level))
`virtual_prop-virtual_mouse` <- setNames(as.list(c("virtual_prop-virtual_mouse",
    `virtual_prop-virtual_mouse`)), c("modality", "estimate", "conf.low", "conf.high"))
df.diffs <- rbind.data.frame(`physical_touch-physical_notouch`, `physical_notouch-virtual_prop`,
    `virtual_prop-virtual_mouse`, make.row.names = FALSE, stringsAsFactors = FALSE)
df.diffs <- transform(df.diffs, estimate = as.numeric(estimate), conf.low = as.numeric(conf.low),
    conf.high = as.numeric(conf.high))
diff.touch_notouch <- duration[modality == "physical-notouch"] - duration[modality ==
    "physical-touch"]
`physical_touch-physical_notouch` <- do.call(ci_method, list(diff.touch_notouch,
    conf_level))
`physical_touch-physical_notouch` <- setNames(as.list(c("physical_touch-physical_notouch",
    `physical_touch-physical_notouch`)), c("modality", "estimate", "conf.low", "conf.high"))
diff.notouch_prop <- duration[modality == "physical-notouch"] - duration[modality ==
    "virtual-prop"]
`physical_notouch-virtual_prop` <- do.call(ci_method, list(diff.notouch_prop, conf_level))
`physical_notouch-virtual_prop` <- setNames(as.list(c("physical_notouch-virtual_prop",
    `physical_notouch-virtual_prop`)), c("modality", "estimate", "conf.low", "conf.high"))
diff.propr_mouse <- duration[modality == "virtual-prop"] - duration[modality == "virtual-mouse"]
`virtual_prop-virtual_mouse` <- do.call(ci_method, list(diff.propr_mouse, conf_level))
`virtual_prop-virtual_mouse` <- setNames(as.list(c("virtual_prop-virtual_mouse",
    `virtual_prop-virtual_mouse`)), c("modality", "estimate", "conf.low", "conf.high"))
df.diffs <- rbind.data.frame(`physical_touch-physical_notouch`, `physical_notouch-virtual_prop`,
    `virtual_prop-virtual_mouse`, make.row.names = FALSE, stringsAsFactors = FALSE)
df.diffs <- transform(df.diffs, estimate = as.numeric(estimate), conf.low = as.numeric(conf.low),
    conf.high = as.numeric(conf.high))
diff.touch_notouch <- duration[modality == "physical-notouch"] - duration[modality ==
    "physical-touch"]
`physical_touch-physical_notouch` <- do.call(ci_method, list(diff.touch_notouch,
    conf_level))
`physical_touch-physical_notouch` <- setNames(as.list(c("physical_touch-physical_notouch",
    `physical_touch-physical_notouch`)), c("modality", "estimate", "conf.low", "conf.high"))
diff.notouch_prop <- duration[modality == "physical-notouch"] - duration[modality ==
    "virtual-prop"]
`physical_notouch-virtual_prop` <- do.call(ci_method, list(diff.notouch_prop, conf_level))
`physical_notouch-virtual_prop` <- setNames(as.list(c("physical_notouch-virtual_prop",
    `physical_notouch-virtual_prop`)), c("modality", "estimate", "conf.low", "conf.high"))
diff.propr_mouse <- duration[modality == "virtual-prop"] - duration[modality == "virtual-mouse"]
`virtual_prop-virtual_mouse` <- do.call(ci_method, list(diff.propr_mouse, conf_level))
`virtual_prop-virtual_mouse` <- setNames(as.list(c("virtual_prop-virtual_mouse",
    `virtual_prop-virtual_mouse`)), c("modality", "estimate", "conf.low", "conf.high"))
df.diffs <- rbind.data.frame(`physical_touch-physical_notouch`, `physical_notouch-virtual_prop`,
    `virtual_prop-virtual_mouse`, make.row.names = FALSE, stringsAsFactors = FALSE)
df.diffs <- transform(df.diffs, estimate = as.numeric(estimate), conf.low = as.numeric(conf.low),
    conf.high = as.numeric(conf.high))
diff.touch_notouch <- duration[modality == "physical-notouch"] - duration[modality ==
    "physical-touch"]
`physical_touch-physical_notouch` <- do.call(ci_method, list(diff.touch_notouch,
    conf_level))
`physical_touch-physical_notouch` <- setNames(as.list(c("physical_touch-physical_notouch",
    `physical_touch-physical_notouch`)), c("modality", "estimate", "conf.low", "conf.high"))
diff.notouch_prop <- duration[modality == "physical-notouch"] - duration[modality ==
    "virtual-prop"]
`physical_notouch-virtual_prop` <- do.call(ci_method, list(diff.notouch_prop, conf_level))
`physical_notouch-virtual_prop` <- setNames(as.list(c("physical_notouch-virtual_prop",
    `physical_notouch-virtual_prop`)), c("modality", "estimate", "conf.low", "conf.high"))
diff.propr_mouse <- duration[modality == "virtual-prop"] - duration[modality == "virtual-mouse"]
`virtual_prop-virtual_mouse` <- do.call(ci_method, list(diff.propr_mouse, conf_level))
`virtual_prop-virtual_mouse` <- setNames(as.list(c("virtual_prop-virtual_mouse",
    `virtual_prop-virtual_mouse`)), c("modality", "estimate", "conf.low", "conf.high"))
df.diffs <- rbind.data.frame(`physical_touch-physical_notouch`, `physical_notouch-virtual_prop`,
    `virtual_prop-virtual_mouse`, make.row.names = FALSE, stringsAsFactors = FALSE)
df.diffs <- transform(df.diffs, estimate = as.numeric(estimate), conf.low = as.numeric(conf.low),
    conf.high = as.numeric(conf.high))
diff.touch_notouch <- duration[modality == "physical-notouch"] - duration[modality ==
    "physical-touch"]
`physical_touch-physical_notouch` <- do.call(ci_method, list(diff.touch_notouch,
    conf_level))
`physical_touch-physical_notouch` <- setNames(as.list(c("physical_touch-physical_notouch",
    `physical_touch-physical_notouch`)), c("modality", "estimate", "conf.low", "conf.high"))
diff.notouch_prop <- duration[modality == "physical-notouch"] - duration[modality ==
    "virtual-prop"]
`physical_notouch-virtual_prop` <- do.call(ci_method, list(diff.notouch_prop, conf_level))
`physical_notouch-virtual_prop` <- setNames(as.list(c("physical_notouch-virtual_prop",
    `physical_notouch-virtual_prop`)), c("modality", "estimate", "conf.low", "conf.high"))
diff.propr_mouse <- duration[modality == "virtual-prop"] - duration[modality == "virtual-mouse"]
`virtual_prop-virtual_mouse` <- do.call(ci_method, list(diff.propr_mouse, conf_level))
`virtual_prop-virtual_mouse` <- setNames(as.list(c("virtual_prop-virtual_mouse",
    `virtual_prop-virtual_mouse`)), c("modality", "estimate", "conf.low", "conf.high"))
df.diffs <- rbind.data.frame(`physical_touch-physical_notouch`, `physical_notouch-virtual_prop`,
    `virtual_prop-virtual_mouse`, make.row.names = FALSE, stringsAsFactors = FALSE)
df.diffs <- transform(df.diffs, estimate = as.numeric(estimate), conf.low = as.numeric(conf.low),
    conf.high = as.numeric(conf.high))
diff.touch_notouch <- duration[modality == "physical-notouch"] - duration[modality ==
    "physical-touch"]
`physical_touch-physical_notouch` <- do.call(ci_method, list(diff.touch_notouch,
    conf_level))
`physical_touch-physical_notouch` <- setNames(as.list(c("physical_touch-physical_notouch",
    `physical_touch-physical_notouch`)), c("modality", "estimate", "conf.low", "conf.high"))
diff.notouch_prop <- duration[modality == "physical-notouch"] - duration[modality ==
    "virtual-prop"]
`physical_notouch-virtual_prop` <- do.call(ci_method, list(diff.notouch_prop, conf_level))
`physical_notouch-virtual_prop` <- setNames(as.list(c("physical_notouch-virtual_prop",
    `physical_notouch-virtual_prop`)), c("modality", "estimate", "conf.low", "conf.high"))
diff.propr_mouse <- duration[modality == "virtual-prop"] - duration[modality == "virtual-mouse"]
`virtual_prop-virtual_mouse` <- do.call(ci_method, list(diff.propr_mouse, conf_level))
`virtual_prop-virtual_mouse` <- setNames(as.list(c("virtual_prop-virtual_mouse",
    `virtual_prop-virtual_mouse`)), c("modality", "estimate", "conf.low", "conf.high"))
df.diffs <- rbind.data.frame(`physical_touch-physical_notouch`, `physical_notouch-virtual_prop`,
    `virtual_prop-virtual_mouse`, make.row.names = FALSE, stringsAsFactors = FALSE)
df.diffs <- transform(df.diffs, estimate = as.numeric(estimate), conf.low = as.numeric(conf.low),
    conf.high = as.numeric(conf.high))
diff.touch_notouch <- duration[modality == "physical-notouch"] - duration[modality ==
    "physical-touch"]
`physical_touch-physical_notouch` <- do.call(ci_method, list(diff.touch_notouch,
    conf_level))
`physical_touch-physical_notouch` <- setNames(as.list(c("physical_touch-physical_notouch",
    `physical_touch-physical_notouch`)), c("modality", "estimate", "conf.low", "conf.high"))
diff.notouch_prop <- duration[modality == "physical-notouch"] - duration[modality ==
    "virtual-prop"]
`physical_notouch-virtual_prop` <- do.call(ci_method, list(diff.notouch_prop, conf_level))
`physical_notouch-virtual_prop` <- setNames(as.list(c("physical_notouch-virtual_prop",
    `physical_notouch-virtual_prop`)), c("modality", "estimate", "conf.low", "conf.high"))
diff.propr_mouse <- duration[modality == "virtual-prop"] - duration[modality == "virtual-mouse"]
`virtual_prop-virtual_mouse` <- do.call(ci_method, list(diff.propr_mouse, conf_level))
`virtual_prop-virtual_mouse` <- setNames(as.list(c("virtual_prop-virtual_mouse",
    `virtual_prop-virtual_mouse`)), c("modality", "estimate", "conf.low", "conf.high"))
df.diffs <- rbind.data.frame(`physical_touch-physical_notouch`, `physical_notouch-virtual_prop`,
    `virtual_prop-virtual_mouse`, make.row.names = FALSE, stringsAsFactors = FALSE)
df.diffs <- transform(df.diffs, estimate = as.numeric(estimate), conf.low = as.numeric(conf.low),
    conf.high = as.numeric(conf.high))
diff.touch_notouch <- duration[modality == "physical-notouch"] - duration[modality ==
    "physical-touch"]
`physical_touch-physical_notouch` <- do.call(ci_method, list(diff.touch_notouch,
    conf_level))
`physical_touch-physical_notouch` <- setNames(as.list(c("physical_touch-physical_notouch",
    `physical_touch-physical_notouch`)), c("modality", "estimate", "conf.low", "conf.high"))
diff.notouch_prop <- duration[modality == "physical-notouch"] - duration[modality ==
    "virtual-prop"]
`physical_notouch-virtual_prop` <- do.call(ci_method, list(diff.notouch_prop, conf_level))
`physical_notouch-virtual_prop` <- setNames(as.list(c("physical_notouch-virtual_prop",
    `physical_notouch-virtual_prop`)), c("modality", "estimate", "conf.low", "conf.high"))
diff.propr_mouse <- duration[modality == "virtual-prop"] - duration[modality == "virtual-mouse"]
`virtual_prop-virtual_mouse` <- do.call(ci_method, list(diff.propr_mouse, conf_level))
`virtual_prop-virtual_mouse` <- setNames(as.list(c("virtual_prop-virtual_mouse",
    `virtual_prop-virtual_mouse`)), c("modality", "estimate", "conf.low", "conf.high"))
df.diffs <- rbind.data.frame(`physical_touch-physical_notouch`, `physical_notouch-virtual_prop`,
    `virtual_prop-virtual_mouse`, make.row.names = FALSE, stringsAsFactors = FALSE)
df.diffs <- transform(df.diffs, estimate = as.numeric(estimate), conf.low = as.numeric(conf.low),
    conf.high = as.numeric(conf.high))
diff.touch_notouch <- duration[modality == "physical-notouch"] - duration[modality ==
    "physical-touch"]
`physical_touch-physical_notouch` <- do.call(ci_method, list(diff.touch_notouch,
    conf_level))
`physical_touch-physical_notouch` <- setNames(as.list(c("physical_touch-physical_notouch",
    `physical_touch-physical_notouch`)), c("modality", "estimate", "conf.low", "conf.high"))
diff.notouch_prop <- duration[modality == "physical-notouch"] - duration[modality ==
    "virtual-prop"]
`physical_notouch-virtual_prop` <- do.call(ci_method, list(diff.notouch_prop, conf_level))
`physical_notouch-virtual_prop` <- setNames(as.list(c("physical_notouch-virtual_prop",
    `physical_notouch-virtual_prop`)), c("modality", "estimate", "conf.low", "conf.high"))
diff.propr_mouse <- duration[modality == "virtual-prop"] - duration[modality == "virtual-mouse"]
`virtual_prop-virtual_mouse` <- do.call(ci_method, list(diff.propr_mouse, conf_level))
`virtual_prop-virtual_mouse` <- setNames(as.list(c("virtual_prop-virtual_mouse",
    `virtual_prop-virtual_mouse`)), c("modality", "estimate", "conf.low", "conf.high"))
df.diffs <- rbind.data.frame(`physical_touch-physical_notouch`, `physical_notouch-virtual_prop`,
    `virtual_prop-virtual_mouse`, make.row.names = FALSE, stringsAsFactors = FALSE)
df.diffs <- transform(df.diffs, estimate = as.numeric(estimate), conf.low = as.numeric(conf.low),
    conf.high = as.numeric(conf.high))
diff.touch_notouch <- duration[modality == "physical-notouch"] - duration[modality ==
    "physical-touch"]
`physical_touch-physical_notouch` <- do.call(ci_method, list(diff.touch_notouch,
    conf_level))
`physical_touch-physical_notouch` <- setNames(as.list(c("physical_touch-physical_notouch",
    `physical_touch-physical_notouch`)), c("modality", "estimate", "conf.low", "conf.high"))
diff.notouch_prop <- duration[modality == "physical-notouch"] - duration[modality ==
    "virtual-prop"]
`physical_notouch-virtual_prop` <- do.call(ci_method, list(diff.notouch_prop, conf_level))
`physical_notouch-virtual_prop` <- setNames(as.list(c("physical_notouch-virtual_prop",
    `physical_notouch-virtual_prop`)), c("modality", "estimate", "conf.low", "conf.high"))
diff.propr_mouse <- duration[modality == "virtual-prop"] - duration[modality == "virtual-mouse"]
`virtual_prop-virtual_mouse` <- do.call(ci_method, list(diff.propr_mouse, conf_level))
`virtual_prop-virtual_mouse` <- setNames(as.list(c("virtual_prop-virtual_mouse",
    `virtual_prop-virtual_mouse`)), c("modality", "estimate", "conf.low", "conf.high"))
df.diffs <- rbind.data.frame(`physical_touch-physical_notouch`, `physical_notouch-virtual_prop`,
    `virtual_prop-virtual_mouse`, make.row.names = FALSE, stringsAsFactors = FALSE)
df.diffs <- transform(df.diffs, estimate = as.numeric(estimate), conf.low = as.numeric(conf.low),
    conf.high = as.numeric(conf.high))
diff.touch_notouch <- duration[modality == "physical-notouch"] - duration[modality ==
    "physical-touch"]
`physical_touch-physical_notouch` <- do.call(ci_method, list(diff.touch_notouch,
    conf_level))
`physical_touch-physical_notouch` <- setNames(as.list(c("physical_touch-physical_notouch",
    `physical_touch-physical_notouch`)), c("modality", "estimate", "conf.low", "conf.high"))
diff.notouch_prop <- duration[modality == "physical-notouch"] - duration[modality ==
    "virtual-prop"]
`physical_notouch-virtual_prop` <- do.call(ci_method, list(diff.notouch_prop, conf_level))
`physical_notouch-virtual_prop` <- setNames(as.list(c("physical_notouch-virtual_prop",
    `physical_notouch-virtual_prop`)), c("modality", "estimate", "conf.low", "conf.high"))
diff.propr_mouse <- duration[modality == "virtual-prop"] - duration[modality == "virtual-mouse"]
`virtual_prop-virtual_mouse` <- do.call(ci_method, list(diff.propr_mouse, conf_level))
`virtual_prop-virtual_mouse` <- setNames(as.list(c("virtual_prop-virtual_mouse",
    `virtual_prop-virtual_mouse`)), c("modality", "estimate", "conf.low", "conf.high"))
df.diffs <- rbind.data.frame(`physical_touch-physical_notouch`, `physical_notouch-virtual_prop`,
    `virtual_prop-virtual_mouse`, make.row.names = FALSE, stringsAsFactors = FALSE)
df.diffs <- transform(df.diffs, estimate = as.numeric(estimate), conf.low = as.numeric(conf.low),
    conf.high = as.numeric(conf.high))
diff.touch_notouch <- duration[modality == "physical-notouch"] - duration[modality ==
    "physical-touch"]
`physical_touch-physical_notouch` <- do.call(ci_method, list(diff.touch_notouch,
    conf_level))
`physical_touch-physical_notouch` <- setNames(as.list(c("physical_touch-physical_notouch",
    `physical_touch-physical_notouch`)), c("modality", "estimate", "conf.low", "conf.high"))
diff.notouch_prop <- duration[modality == "physical-notouch"] - duration[modality ==
    "virtual-prop"]
`physical_notouch-virtual_prop` <- do.call(ci_method, list(diff.notouch_prop, conf_level))
`physical_notouch-virtual_prop` <- setNames(as.list(c("physical_notouch-virtual_prop",
    `physical_notouch-virtual_prop`)), c("modality", "estimate", "conf.low", "conf.high"))
diff.propr_mouse <- duration[modality == "virtual-prop"] - duration[modality == "virtual-mouse"]
`virtual_prop-virtual_mouse` <- do.call(ci_method, list(diff.propr_mouse, conf_level))
`virtual_prop-virtual_mouse` <- setNames(as.list(c("virtual_prop-virtual_mouse",
    `virtual_prop-virtual_mouse`)), c("modality", "estimate", "conf.low", "conf.high"))
df.diffs <- rbind.data.frame(`physical_touch-physical_notouch`, `physical_notouch-virtual_prop`,
    `virtual_prop-virtual_mouse`, make.row.names = FALSE, stringsAsFactors = FALSE)
df.diffs <- transform(df.diffs, estimate = as.numeric(estimate), conf.low = as.numeric(conf.low),
    conf.high = as.numeric(conf.high))
diff.touch_notouch <- duration[modality == "physical-notouch"] - duration[modality ==
    "physical-touch"]
`physical_touch-physical_notouch` <- do.call(ci_method, list(diff.touch_notouch,
    conf_level))
`physical_touch-physical_notouch` <- setNames(as.list(c("physical_touch-physical_notouch",
    `physical_touch-physical_notouch`)), c("modality", "estimate", "conf.low", "conf.high"))
diff.notouch_prop <- duration[modality == "physical-notouch"] - duration[modality ==
    "virtual-prop"]
`physical_notouch-virtual_prop` <- do.call(ci_method, list(diff.notouch_prop, conf_level))
`physical_notouch-virtual_prop` <- setNames(as.list(c("physical_notouch-virtual_prop",
    `physical_notouch-virtual_prop`)), c("modality", "estimate", "conf.low", "conf.high"))
diff.propr_mouse <- duration[modality == "virtual-prop"] - duration[modality == "virtual-mouse"]
`virtual_prop-virtual_mouse` <- do.call(ci_method, list(diff.propr_mouse, conf_level))
`virtual_prop-virtual_mouse` <- setNames(as.list(c("virtual_prop-virtual_mouse",
    `virtual_prop-virtual_mouse`)), c("modality", "estimate", "conf.low", "conf.high"))
df.diffs <- rbind.data.frame(`physical_touch-physical_notouch`, `physical_notouch-virtual_prop`,
    `virtual_prop-virtual_mouse`, make.row.names = FALSE, stringsAsFactors = FALSE)
df.diffs <- transform(df.diffs, estimate = as.numeric(estimate), conf.low = as.numeric(conf.low),
    conf.high = as.numeric(conf.high))
--- finished re-building ‘frequentist-multiverse-analysis.Rmd’

--- re-building ‘hurricane.Rmd’ using rmarkdown
Quitting from lines 20-26 (hurricane.Rmd) 
Error: processing vignette 'hurricane.Rmd' failed with diagnostics:
there is no package called 'tidybayes'
--- failed re-building ‘hurricane.Rmd’

--- re-building ‘multiverse-in-rmd.Rmd’ using rmarkdown
--- finished re-building ‘multiverse-in-rmd.Rmd’

--- re-building ‘visualising-multiverse.Rmd’ using rmarkdown
--- finished re-building ‘visualising-multiverse.Rmd’

SUMMARY: processing the following file failed:
  ‘hurricane.Rmd’

Error: Vignette re-building failed.
Execution halted