update Winklevoss_practice.r up to chapter 6