inst/examples/R/data/theory/statistical_tests/example_boot.R

library("boot")
meanboot <- function (x, ind) { return(mean(x[ind])); }

set.seed(24961970)
x <- read.csv2("pechstein.csv")
head(x)
boot(x$Retikulozyten, meanboot, 999)
sigbertklinke/shinyExample documentation built on May 26, 2019, 4:32 a.m.