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