Create two_locus_model.R

initial version