# birth order 1, Singh et al. (2010)
Wilson_score_CI_1x2(singh_2010["1st", "X"], singh_2010["1st", "n"])
# birth order 2, Singh et al. (2010)
Wilson_score_CI_1x2(singh_2010["2nd", "X"], singh_2010["2nd", "n"])
# birth order 3, Singh et al. (2010)
Wilson_score_CI_1x2(singh_2010["3rd", "X"], singh_2010["3rd", "n"])
# birth order 4, Singh et al. (2010)
with(singh_2010["4th", ], Wilson_score_CI_1x2(X, n)) # alternative syntax
# Ligarden (2010)
Wilson_score_CI_1x2(ligarden_2010["X"], ligarden_2010["n"])
Run the code above in your browser using DataLab