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