EPIDURAL | R Documentation |
Initial results from a study to determine whether the traditional sitting position or the hamstring stretch position is superior for administering epidural anesthesia to pregnant women in labor as measured by the number of obstructive (needle to bone) contacts (OC)
A data frame with 85 observations on the following 7 variables:
a factor with levels Dr. A
,
Dr. B
, Dr. C
, and Dr. D
weight in kg of patient
height in cm of pateint
a factor with levels Difficult
, Easy
, and Impossible
indicating the physician's assessment of how well bone landmarks can be felt
in the patient
a factor with levels Hamstring Stretch
and Traditional Sitting
number of obstructive contacts
a factor with levels Failure - person got
dizzy
, Failure - too many OCs
, None
, Paresthesia
, and
Wet Tap
Ugarte, M. D., Militino, A. F., and Arnholt, A. T. (2008) Probability and Statistics with R. Chapman & Hall/CRC.
EPIDURAL$Teasy <- factor(EPIDURAL$Ease, levels = c("Easy", "Difficult", "Impossible")) X <- table(EPIDURAL$Doctor, EPIDURAL$Teasy) X par(mfrow = c(2, 2)) # Figure 2.12 barplot(X, main = "Barplot where Doctor is Stacked \n within Levels of Palpitation") barplot(t(X), main = "Barplot where Levels of Palpitation \n is Stacked within Doctor") barplot(X, beside = TRUE, main = "Barplot where Doctor is Grouped \n within Levels of Palpitation") barplot(t(X), beside = TRUE, main = "Barplot where Levels of Palpitation \n is Grouped within Doctor") par(mfrow = c(1, 1)) rm(X)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.