File: birth2.q

package info (click to toggle)
sm 2.2-6.0-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 1,540 kB
  • sloc: f90: 259; ansic: 21; makefile: 2
file content (7 lines) | stat: -rw-r--r-- 279 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
 
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)
})