get.marginal.gamete.fitness: get the marginal fitness of all gamete in the population
In frederic-michaud/hapex: FRequency Evolution Simulator of Sex-linked Alleles

Description Usage Arguments Examples

given a matrix of frequency returned by the function 'compute.frequency.evolution' and the associated genome, return a matrix containing the evolution of the marginal fitness. The marginal fitness is defined as the mean fitness of individual carrying this gamete weighted by the frequency of those individuals.

1	get.marginal.gamete.fitness(genome, freqs)

`genome`	A S4 object of type genome
`freqs`	a matrix of frequency as returned by the function 'compute.frequency.evolution'

locus1 = create.locus(allele1=c(1,1),allele2 = c(1,2),sd = c(0,1))
locus2 = create.locus(allele1=  c(1,1,2),allele2 = c(1,2,2),fitness.female = c(1,0.9,0.8),fitness.male = c(0.6,0.8,1))
genome = create.genome(locus=list(locus1,locus2))
freqs <- compute.frequency.evolution(genome)
get.gamete.marginal.fitness(genome, freqs)