Week 1; bootstrap distribution r code