r code for Mouse Donor...