Update reprod.r