Update JM_analysis.R

changes to an updated data