common.y[y])」
が入っているため
……
これをぬくともっとなめらかな変化になる.
> table(dlong[as.numeric(dlong$locus) == 1, "Genotype2"])
g01 g02 g03 g04 g05 g06 g07 g08 g09
37 28 21 19 14 10 6 5 5
g10 g11 g12 g13 g14 g15 g16 g17 g18
5 5 4 4 4 4 4 4 4
g19 g20 g21 g22 g23 g24 g25 g26 g27
3 3 3 3 3 3 2 2 2
g28 g29 g30 g31 g32 g33 g34 g35 g36
2 2 2 2 2 2 2 2 2
g37 g38 single
2 2 86