formatted one_of_m_retesting.r and added list for output