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 MisoprostolPlacebo
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.
Source
F. L. Lanza (1987), A double-blind study of prophylactic effect of misoprostol on
lesions of gastric and duodenal mucosa induced by oral administration of tolmetin
in healthy subjects. British Journal of Clinical Practice, May
suppl, 91–101.
F. L. Lanza, R. L. Aspinall, E. A. Swabb, R. E. Davis, M. F. Rack, A. Rubin
(1988a), Double-blind, placebo-controlled endoscopic comparison of the
mucosal protective effects of misoprostol versus cimetidine on
tolmetin-induced mucosal injury to the stomach and duodenum.
Gastroenterology, 95(2), 289–294.
F. L. Lanza, K. Peace, L. Gustitus, M. F. Rack, B. Dickson (1988b),
A blinded endoscopic comparative study of misoprostol versus
sucralfate and placebo in the prevention of aspirin-induced
gastric and duodenal ulceration. American Journal of Gastroenterology,
83(2), 143–146.
F. L. Lanza, D. Fakouhi, A. Rubin, R. E. Davis, M. F. Rack, C. Nissen, S. Geis
(1989), A double-blind placebo-controlled comparison of the efficacy
and safety of 50, 100, and 200 micrograms of misoprostol
QID in the prevention of ibuprofen-induced gastric and
duodenal mucosal lesions and symptoms. American Journal of Gastroenterology,
84(6), 633–636.
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/Lanza.Rd_%03d_medium.png", width=480, height=480)
> ### Name: Lanza
> ### Title: Prevention of Gastointestinal Damages
> ### Aliases: Lanza
> ### Keywords: datasets
>
> ### ** Examples
>
>
> data("Lanza", package = "HSAUR2")
> 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))
>
>
>
>
>
>
> dev.off()
null device
1
>