plot.allele.marginal.fitness: Plot the marginal fitness of all allele from one locus
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, plot the evolution of the marginal fitness of all allele present in the population. The marginal fitness is defined as the mean fitness of individual carrying this allele weighted by the frequency of those individuals.

1	plot.allele.marginal.fitness(genome, freqs)

`genome`	A S4 object of type genome
`freqs`	a matrix of frequency as returned by the function 'compute.frequency.evolution'
`locus.position`	the index of the locus from which we want to plot the allele frequency

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)
plot.gamete.marginal.fitness(genome, freqs)