calc.stick.logLn: Wrapper function so log-likelihood of stickbreaking can be...
In Stickbreaker: Fits Stickbreaking, Multiplicative and Additive Models to Data

Wrapper function so log-likelihood of stickbreaking can be extracted by optimize() function

1	calc.stick.logLn(geno.matrix, fit.matrix, d.vect, wts = c(2, 1))

`geno.matrix`	Genotype matrix generated in `generate.geno.matrix`
`fit.matrix`	Fitness matrix generated in `sim.stick.data`
`d.vect`	Parameter to be maximized over
`wts`	Vector of weights to weight genotypes by. Used when `generate.geno.weight.matrix` is called (see that function). Default is `c(2,1)`, meaning weight single-mutation genotypes twice as heavily as others. Alternatively, vector of weights corresponding to geno.matrix can be provided.