Question

3. Use `sample()` to generate rolls from biased coin with $Pr(Head) = 0.6$ .

i) get a sample of size 10 tosses and tally the results
  
ii) get a sample of size 30 tosses and tally the results   
  
iii) get a sample of size 100 tosses and tally the results
  
iv) what do you notice with the proportion of heads in each sample?
  
### Code chunk
```{r}
# star your code

# last R code line
```

Answer 1