Update belkin_schofer_redo.R