Prepare R Data function