updated R laundry script