Hints

• Use a prior like this for the genotype frequency in females:³

     for (i in 1:3) {
        a.female[i] ~ dexp(1)
        x.female[i] <- a.female[i]/a.female.sum
     }
     a.female.sum <- sum(a.female[])
  

  and use the analogous one for the genotype frequency in males.

• Use a uniform prior on all of the replicate population allele frequencies.

• If the frequency of $ST$ in males and females can't be distinguished, use an estimate based on the combined sample to answer questions 2-4, and use a prior like the one suggested for females above.

• You can calculate the mean and variance of a vector, p[], as

     p.bar <- mean(p[])
     p.var <- sd(p[])*sd(p[])
  

  sd(p[]) is the standard deviation (the square root of the variance) of p[].