inst/snippets/Section4.4b.R

Cocaine <- rbind( 
  do(18) * data.frame( treatment = "Lithium", response = "Relapse"),
  do(6)  * data.frame( treatment = "Lithium", response = "No Relapse"),
  do(20) * data.frame( treatment = "Placebo", response = "Relapse"),
  do(4)  * data.frame( treatment = "Placebo", response = "No Relapse")
  )
rpruim/Lock5withR documentation built on May 28, 2019, 1:31 a.m.