1. Tester, chez les individus blonds, si la proportion de garçons est égale à 50 %

binom.test(x=592,n=1136,p=0.5,alternative="two.sided")

    Exact binomial test

data:  592 and 1136
number of successes = 592, number of trials = 1136, p-value = 0.1631
alternative hypothesis: true probability of success is not equal to 0.5
95 percent confidence interval:
 0.4916142 0.5505297
sample estimates:
probability of success 
             0.5211268 

2. Tester l’égalité des proportions de filles pour les différentes couleurs de cheveux

prop.test(c(544,97,677,451,14),n=c(1136,216,1526,955,50))

    5-sample test for equality of proportions without continuity correction

data:  c(544, 97, 677, 451, 14) out of c(1136, 216, 1526, 955, 50)
X-squared = 10.467, df = 4, p-value = 0.03325
alternative hypothesis: two.sided
sample estimates:
   prop 1    prop 2    prop 3    prop 4    prop 5 
0.4788732 0.4490741 0.4436435 0.4722513 0.2800000 
LS0tDQp0aXRsZTogIlRlc3RzIHN1ciBsZXMgcHJvcG9ydGlvbnMiDQphdXRob3I6ICJIdXNzb24gZXQgYWwuIg0KZGF0ZTogIjA1LzA5LzIwMTgiDQpvdXRwdXQ6DQogIGh0bWxfbm90ZWJvb2s6DQogICAgdG9jOiB5ZXMNCiAgICB0b2NfZGVwdGg6IDMNCiAgICB0b2NfZmxvYXQ6IHllcw0KICBodG1sX2RvY3VtZW50Og0KICAgIHRvYzogeWVzDQogICAgdG9jX2RlcHRoOiAnMycNCiAgICB0b2NfZmxvYXQ6IHllcw0KLS0tDQoNCiMgMS4gVGVzdGVyLCBjaGV6IGxlcyBpbmRpdmlkdXMgYmxvbmRzLCBzaSBsYSBwcm9wb3J0aW9uIGRlIGdhcsOnb25zIGVzdCDDqWdhbGUgw6AgNTAgJQ0KDQpgYGB7cn0NCmJpbm9tLnRlc3QoeD01OTIsbj0xMTM2LHA9MC41LGFsdGVybmF0aXZlPSJ0d28uc2lkZWQiKQ0KYGBgDQoNCiMgMi4gVGVzdGVyIGzigJnDqWdhbGl0w6kgZGVzIHByb3BvcnRpb25zIGRlIGZpbGxlcyBwb3VyIGxlcyBkaWZmw6lyZW50ZXMgY291bGV1cnMgZGUgY2hldmV1eA0KDQpgYGB7cixmaWcud2lkdGg9NCxmaWcuaGVpZ2h0PTR9DQpwcm9wLnRlc3QoYyg1NDQsOTcsNjc3LDQ1MSwxNCksbj1jKDExMzYsMjE2LDE1MjYsOTU1LDUwKSkNCmBgYA0KDQo=