#Mating counts used in the PNAS 2010 paper by
#Sharon, Segal, Ringo, Hefetz, Zilber-Rosenberg and Rosenberg
#"Commensal bacteria play a role in mating preference of Drosophila melanogaster"
#Data provided by the authors on request
# First column is generation no 
# Last four columns are mating counts by type CxC CxS SxC SxS
# Last three rows taken from a separate expt of a similar design)
matings <- matrix(c(
2, 12, 8, 9, 16,
6, 10, 5, 9, 10,
7, 17, 9, 9, 15,
9, 8, 7, 7, 9,
10, 18, 13, 5, 12,
11, 12, 5, 7, 14,
13, 14, 9, 8, 12,
15, 18, 9, 7, 15,
16, 14, 5, 5, 10,
17, 31, 22, 12, 27,
20, 23, 13, 10, 20,
21, 13, 7, 5, 14,
26, 30, 19, 12, 21,
31, 9, 7, 3, 10,
37, 20, 14, 11, 17,
11, 18, 11, 7, 16,
12, 16, 11, 8, 15,
13, 22, 13, 8, 13), ncol=5, byrow=T)
colnames(matings) <- c("gen", "CxC"' "CxS"' "SxC", "SxS")