R code for bias detection and adjustments, in the analysis of exposure effect on a primary outcome, based on "negative control" outcomes