Familial Andenomatous Polyposis

Description

Data from a placebo-controlled trial of a non-steroidal anti-inflammatory drug in the treatment of familial andenomatous polyposis (FAP).

Usage

data("polyps")

Format

A data frame with 20 observations on the following 3 variables.

number

number of colonic polyps at 12 months.

treat

treatment arms of the trail, a factor with levels placebo and drug.

age

the age of the patient.

Details

Giardiello et al. (1993) and Piantadosi (1997) describe the results of a placebo-controlled trial of a non-steroidal anti-inflammatory drug in the treatment of familial andenomatous polyposis (FAP). The trial was halted after a planned interim analysis had suggested compelling evidence in favour of the treatment. Here we are interested in assessing whether the number of colonic polyps at 12 months is related to treatment and age of patient.

Source

F. M. Giardiello, S. R. Hamilton, A. J. Krush, S. Piantadosi, L. M. Hylind, P. Celano, S. V. Booker, C. R. Robinson and G. J. A. Offerhaus (1993), Treatment of colonic and rectal adenomas with sulindac in familial adenomatous polyposis. New England Journal of Medicine, 328(18), 1313–1316.

S. Piantadosi (1997), Clinical Trials: A Methodologic Perspective. John Wiley & Sons, New York.

Examples

  data("polyps", package = "HSAUR2")
  plot(number ~ age, data = polyps, pch = as.numeric(polyps$treat))
  legend(40, 40, legend = levels(polyps$treat), pch = 1:2, bty = "n")

Results

R version 3.3.1 (2016-06-21) -- "Bug in Your Hair"
Copyright (C) 2016 The R Foundation for Statistical Computing
Platform: x86_64-pc-linux-gnu (64-bit)

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> library(HSAUR2)
Loading required package: tools
> png(filename="/home/ddbj/snapshot/RGM3/R_CC/result/HSAUR2/polyps.Rd_%03d_medium.png", width=480, height=480)
> ### Name: polyps
> ### Title: Familial Andenomatous Polyposis
> ### Aliases: polyps
> ### Keywords: datasets
> 
> ### ** Examples
> 
> 
>   data("polyps", package = "HSAUR2")
>   plot(number ~ age, data = polyps, pch = as.numeric(polyps$treat))
>   legend(40, 40, legend = levels(polyps$treat), pch = 1:2, bty = "n")
> 
> 
> 
> 
> 
> 
> dev.off()
null device 
          1 
>