tidyverse-compatible bootstrapping
Switch branches/tags
Nothing to show
Clone or download
Fetching latest commit…
Cannot retrieve the latest commit at this time.
Permalink
Failed to load latest commit information.
R
inst
man
.Rbuildignore
.gitignore
.travis.yml
DESCRIPTION
NAMESPACE
NEWS.md
README.Rmd
README.md
cran-comments.md
tidyboot.Rproj

README.md

tidyboot

tidyboot let's you compute arbitrary non-parametric bootstrap statistics on data in tidy data frames.

Installation

You can install tidyboot from CRAN with:

install.packages("tidyboot")

You can install tidyboot from github with:

# install.packages("devtools")
devtools::install_github("langcog/tidyboot")

Examples

For the simplest use case of bootstrapping the mean and getting the mean and confidence interval of that estimate, use the convenience function tidyboot_mean(), specifying which column has the relevant values to compute the mean over:

library(dplyr)
library(tidyboot)

gauss1 <- data_frame(value = rnorm(500, mean = 0, sd = 1), condition = 1)
gauss2 <- data_frame(value = rnorm(500, mean = 2, sd = 3), condition = 2)
df <- bind_rows(gauss1, gauss2)

df %>%
  group_by(condition) %>%
  tidyboot_mean(column = value)
#> # A tibble: 2 x 6
#>   condition     n empirical_stat  ci_lower        mean   ci_upper
#>       <dbl> <int>          <dbl>     <dbl>       <dbl>      <dbl>
#> 1         1   500    -0.02292831 -0.114664 -0.02196269 0.06232765
#> 2         2   500     2.02781100  1.755141  2.02955494 2.30626508

For bootstrapping any statistic and any properties of its sampling distribution, use tidyboot().

You can provide the statistic to be estimated either as a function and a column to compute it over, or as function that takes the whole dataframe and computes the relevant value.

Similarly, you can provide the properties of the sampling distribution to be computed either as a named list of functions and a column to compute them over, or a function that takes the whole dataframe and returns the relevant values.

df %>%
  group_by(condition) %>%
  tidyboot(column = value, summary_function = median,
           statistics_functions = list("mean" = mean, "sd" = sd))
#> # A tibble: 2 x 5
#>   condition     n empirical_median         mean         sd
#>       <dbl> <int>            <dbl>        <dbl>      <dbl>
#> 1         1   500     -0.006468345 -0.005842842 0.05544625
#> 2         2   500      1.995112455  2.011381756 0.20658963
df %>%
  group_by(condition) %>%
  tidyboot(summary_function = function(x) x %>% summarise(median = median(value)),
           statistics_functions = function(x) x %>% summarise_at(vars(median), funs(mean, sd)))
#> # A tibble: 2 x 5
#>   condition     n empirical_median         mean         sd
#>       <dbl> <int>            <dbl>        <dbl>      <dbl>
#> 1         1   500     -0.006468345 -0.006287976 0.05505858
#> 2         2   500      1.995112455  2.006877243 0.20645516