inst/scripts/birth2.q

with(birth, {
Low0 <- Low[Smoke=="N"]; Lwt0 <- Lwt[Smoke=="N"]
Low1 <- Low[Smoke=="S"]; Lwt1 <- Lwt[Smoke=="S"]
sm.binomial(Lwt0, Low0, h=20, pch="N", col=2,
      xlab="Mother weight", ylab="Prob{Low}", xlim=c(80,260))
sm.binomial(Lwt1, Low1, h=20, pch="S", col=3, add=TRUE)
})

Try the sm package in your browser

Any scripts or data that you put into this service are public.

sm documentation built on May 29, 2024, 2:28 a.m.