Create coloc.mdf.R

Run the BMA or PCA colocation approaches for a common control and two traits