bru_formula_to_bru_obs_code function

Convert components to R code