Create fecundity r code

R code for pulling together a bunch of the fecundity work. WARNING this is very sloppy and unfinished