Revision 50d8eb1175db0e971d1b2be8f1aa05ede6b3a02d authored by Virasakdi Chongsuvivatwong on 20 August 2009, 00:00:00 UTC, committed by Gabor Csardi on 20 August 2009, 00:00:00 UTC
1 parent 3314dff
ectopic.rd
\name{Ectopic pregnancy}
\alias{Ectopic}
\docType{data}
\title{ Dataset of a case-control study looking at history of
abortion as a risk factor for ectopic pregnancy}
\description{
This case-control study has one case series and two control groups.\cr
The subjects were recruited based on three types of pregnancy outcome
}
\usage{data(Ectopic)}
\format{
A data frame with 723 observations on the following 4 variables.
\describe{
\item{\code{id}}{a numeric vector}
\item{\code{outc}}{a factor with levels \code{EP} \code{IA} \code{Deli}}
\tabular{lll}{
\tab EP \tab = ectopic pregnancy\cr
\tab IA \tab = women coming for induced abortion\cr
\tab Deli \tab = women admitted for full-term delivery\cr
}
\item{\code{hia}}{a factor with levels \code{never IA} \code{ever IA}}
\item{\code{gravi}}{a factor with levels \code{1-2} \code{3-4} \code{>4}}
}
}
\examples{data(Ectopic)
library(nnet)
use(Ectopic)
multi1 <- multinom(outc ~ hia + gravi, data=.data)
summary(multi1)
mlogit.display(multi1)
# Changing referent group of outcome
outcIA <- relevel(outc, ref="IA")
pack()
multi2 <- multinom(outcIA ~ hia + gravi, data=.data)
summary(multi2)
mlogit.display(multi2)
}
\keyword{datasets}
![swh spinner](/static/img/swh-spinner.gif)
Computing file changes ...