Question $2$

Write your code and edit as follows

CoinThrowsample$($c$(0,1),100,$ replace$=$TRUE$)$

CoinThrow$2$

cumsum$($CoinThrow$2)$

table$($CoinThrow$2)$

Relfreqcumsum$($CoinThrow$2)/$length$($CoinThrow$2)$

num:$100$

plot$($num$,$ Relfreq$)$

plot$($num$,$ Relfreq, type$="$o$")$

Comment on each R code using R # or Markdown report or write an accompanying note in $R$ Markdown about what each code does.