y0 <- c(0, p0)
x0 <- c(0, n0)
y1 <- c(0, p1, p0)
x1 <- c(0, n1, n0)
y3 <- c(0, 290, p1, 450, p0)
x3 <- c(0, 100, n1, 380, n0)
y4 <- c(0, 150, 440, 490, p0)
x4 <- c(0, 30, 130, 750, n0)
axis(2,y0,labels=c('0','50'))
axis(1,x0,labels=c('0','100'))
gx <- grid.step
while (gx <= w) {
abline(v = gx, col="gray", lty="dotted")
gx <- gx + grid.step
}
gy <- grid.step
while (gy <= h) {
abline(h = gy, col="gray", lty="dotted")
gy <- gy + grid.step
}
lines( x0, y0, lty=1, type='o', col=rgb(240,32, 16,maxColorValue=255))
lines( x1, y1, lty=1, type='o', col=rgb(144,32,144,maxColorValue=255))
lines( x3, y3, lty=2, type='o', col=rgb( 16,32,240,maxColorValue=255))
lines( x4, y4, lty=1, type='o', col=rgb( 16,32,240,maxColorValue=255))