GenotypeProportions: Find the proportion of individuals with genotype AA, Aa, or...
In alghul96/AdmSim: Simulation for Genetic Admixture

1	GenotypeProportions(freqA)

freqA

The frequency of a dominant allele.

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function (freqA)
{
    if (freqA > 1 || freqA < 0)
        return("The allele frequency should be between 0 and 1.")
    freqa = 1 - freqA
    freqAA = freqA^2
    freqAa = 2 * freqA * freqa
    freqaa = freqa^2
    return(list(fAA = freqAA, fAa = freqAa, faa = freqaa))
  }