Become an expert in R — Interactive courses, Cheat Sheets, certificates and more!
Get Started for Free

patch

The Patch Data


Description

Eight subjects wore medical patches designed to infuse a naturally-occuring hormone into the blood stream.

Usage

data(patch)

Format

A data frame with 8 observations on the following 6 variables.

subject

a numeric vector

placebo

a numeric vector

oldpatch

a numeric vector

newpatch

a numeric vector

z

a numeric vector, oldpatch - placebo

y

a numeric vector, newpatch - oldpatch

Details

Eight subjects wore medical patches designed to infuse a certain naturally-occuring hormone into the blood stream. Each subject had his blood levels of the hormone measured after wearing three different patches: a placebo patch, an "old" patch manufactured at an older plant, and a "new" patch manufactured at a newly opened plant.

The purpose of the study was to show bioequivalence. Patchs from the old plant was already approved for sale by the FDA (food and drug administration). Patches from the new facility would not need a full new approval, if they could be shown bioequivalent to the patches from the old plant.

Bioequivalence was defined as

|E(new)-E(old)|/(E(old)-E(placebo)) <= 0.20

The book uses this to investigate bias of ratio estimation.

Source

Efron, B. and Tibshirani, R. (1993) An Introduction to the Bootstrap. Chapman and Hall, New York, London.

Examples

str(patch) 
 theta <- function(ind){
      Y <- patch[ind,"y"]
      Z <- patch[ind,"z"]
      mean(Y)/mean(Z) }
patch.boot <- bootstrap(1:8, 2000, theta)
names(patch.boot)          
hist(patch.boot$thetastar)
abline(v=c(-0.2, 0.2), col="red2")
theta(1:8) #sample plug-in estimator
abline(v=theta(1:8) , col="blue")
# The bootstrap bias estimate:
mean(patch.boot$thetastar) - theta(1:8)
sd(patch.boot$thetastar) # bootstrapped standard error

bootstrap

Functions for the Book "An Introduction to the Bootstrap"

v2019.6
BSD_3_clause + file LICENSE
Authors
S original, from StatLib, by Rob Tibshirani. R port by Friedrich Leisch.
Initial release
2019-06-15

We don't support your browser anymore

Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.