Create common.control.R

Extends the functions in the coloc package to deal with the case of a common control.