add readme, update r code