HSAUR3 (version 1.0-15)

Lanza: Prevention of Gastointestinal Damages

Description

Data from four randomised clinical trials on the prevention of gastointestinal damages by Misoprostol reported by Lanza et al. (1987, 1988a,b, 1989).

Usage

data("Lanza")

Format

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

study

a factor with levels I, II, III, and IV describing the study number.

treatment

a factor with levels Misoprostol Placebo

classification

an ordered factor with levels 1 < 2 < 3 < 4 < 5 describing an ordered response variable.

Details

The response variable is defined by the number of haemorrhages or erosions.

Examples

  data("Lanza", package = "HSAUR3")
  layout(matrix(1:4, nrow = 2))
  pl <- tapply(1:nrow(Lanza), Lanza$study, function(indx)
      mosaicplot(table(Lanza[indx,"treatment"], 
                       Lanza[indx,"classification"]),
                 main = "", shade = TRUE))