Create belkin_schofer_redo.R