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