Traditional Sitting Position Versus Hamstring Stretch Position

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)

Format

A data frame with 85 observations on the following 7 variables:

Doctor

a factor with levels Dr. A, Dr. B, Dr. C, and Dr. D

kg

weight in kg of patient

cm

height in cm of pateint

Ease

a factor with levels Difficult, Easy, and Impossible indicating the physician's assessment of how well bone landmarks can be felt in the patient

Treatment

a factor with levels Hamstring Stretch and Traditional Sitting

OC

number of obstructive contacts

Complications

a factor with levels Failure - person got dizzy, Failure - too many OCs, None, Paresthesia, and Wet Tap

Source

Ugarte, M. D., Militino, A. F., and Arnholt, A. T. (2008) Probability and Statistics with R. Chapman & Hall/CRC.

Examples

EPIDURAL$Teasy <-  factor(EPIDURAL$Ease,
levels = c("Easy", "Difficult", "Impossible"))
X <- table(EPIDURAL$Doctor, EPIDURAL$Teasy)
X
#>        
#>         Easy Difficult Impossible
#>   Dr. A   19         3          1
#>   Dr. B    7        10          4
#>   Dr. C   18         3          0
#>   Dr. D   13         4          3
par(mfrow = c(2, 2)) # Figure 2.12
barplot(X,
main = "Barplot where Doctor is Stacked \n within Levels of Palpitation")
#> Error in plot.new(): figure margins too large
barplot(t(X),
main = "Barplot where Levels of Palpitation \n is Stacked within Doctor")
#> Error in plot.new(): figure margins too large
barplot(X, beside = TRUE,
main = "Barplot where Doctor is Grouped \n within Levels of Palpitation")
#> Error in plot.new(): figure margins too large
barplot(t(X), beside = TRUE,
main = "Barplot where Levels of Palpitation \n is Grouped within Doctor")
#> Error in plot.new(): figure margins too large
par(mfrow = c(1, 1))
rm(X)