In dtkaplan/MultipleChoice: Support for Multiple Choice Questions in Shiny

library(MultipleChoice)
Scorekeeper <<- list(problem=NULL, attempts=NULL, score=NULL)

The graphic (from the New York Times, April 17, 2008) shows the fitted values from a model of the survival of babies born extremely prematurely.

Caption: "A new study finds that doctors could better estimate an extremely premature baby's chance of survival by considering factors including birth weight, length of gestation, sex and whether the mother was given steroids to help develop the baby's lungs."

Two different response variables are plotted: (1) the probability of survival and (2) the probability of survival without moderate to severe disabilities. Remarkably for a statistical graphic, there are three explanatory variables:

. Birth weight (measured in pounds (lb) in the graphic).

. The sex of the baby.

. Whether the mother took steroids intended to help the fetus's lungs develop.

Focus on the survival rates without disabilities --- the darker bars in the graphic.

Question 1

Estimate the effect of giving steroids, that is, how much extra survival probability is associated with giving steroids?

a. No extra survival probability with steroids. b. About 1-5 percentage points c. About 10 to 15 percentage points d. About 50 percentage points e. About 75 percentage points

MC_question("C06_S2008_101-1", 
            a = "not right",
            b = "still not right",
            c = "yes, that's it.",
            d = "sorry, man",
            e = "last chance")

Question 2

For the babies where the mother was given steroids, how does the survival probability depend on the birth weight of the baby:

a. No dependence. b. Increases by about 25 percentage points. c. Increases by about 50 percentage points. d. Increases by about 25 percentage points per pound. e. Increases by about 50 percentage points per pound.

MC_question("C06_S2008_101-2", 
            a = "not right",
            b = "still not right",
            c = "no, that's not it.",
            d = "sorry, man",
            e = "**RIGHT**")

Question 3

For the babies where the mother was given steroids, how does the survival probability depend on the sex of the baby?

a. No dependence. b. Higher for girls by about 15 percentage points. c. Higher for boys by about 20 percentage points. d. Higher for girls by about 40 percentage points. e. Higher for boys by about 40 percentage points.

MC_question("C06_S2008_101-3", 
            a = "not right",
            b = "**RIGHT**",
            c = "no, that's not it.",
            d = "sorry, man",
            e = "last chance")

Question 4

How would you look for an interaction between birth weight and baby's sex in accounting for survival?

a. Compare survival of males to females at a given weight. b. Compare survival of males across different weights. c. Compare survival of females across different weights. d. Compare the difference in survival between males and females across different weights.

MC_question("C06-S2008-101-4", 
            a = "not right",
            b = "still not right",
            c = "no, that's not it.",
            d = "**RIGHT**")

Question 5

Do you see signs of a substantial interaction between birth weight and sex in accounting for survival? (Take substantial to mean "greater than 10 percentage points.")

MC_question("C06_S2008_101-5", 
            yes = "**WRONG**",
            no  = "**RIGHT**")

Question 6

How would you look for a substantial interaction between steroid use and baby's sex in accounting for survival.

a. Compare survival of males to females when the mother was given steroids. b. Compare survival of males between steroid given and steroid not given. c. Compare survival of females between steroid given and steroid not given. d. Compare the difference in survival between males and females between steroid given and steroid not given.

MC_question("C06_S2008_101-6", 
            a = "not right",
            b = "still not right",
            c = "no, that's not it.",
            d = "**RIGHT**")

Question 7

Do you see signs of a substantial interaction between steroid use and sex in accounting for survival? (Take substantial to mean "greater than 10 percentage points.")

MC_question("C06_S2008_101-7", 
            yes = "**WRONG**",
            no  = "**RIGHT**")

dtkaplan/MultipleChoice documentation built on May 15, 2019, 4:58 p.m.