added spatial_plots.r and turned one_of_m_retesting.r into function