update Winklevoss_practice.r to chapter 5