# plot of the sample sizes
plot(ni ~ no, data = SSRP, ylim = c(0, 2500), xlim = c(0, 400),
xlab = expression(n[o]), ylab = expression(n[i]))
abline(a = 0, b = 1, col = "grey")
plot(nr ~ no, data = SSRP, ylim = c(0, 2500), xlim = c(0, 400),
xlab = expression(n[o]), ylab = expression(n[r]))
abline(a = 0, b = 1, col = "grey")
Run the code above in your browser using DataLab