Begin and end your code with the following $R$ code, with you filling in the in$-$between code:Once you have written your code, test it out $50$ times using the below three lines of R code, checking to make sure that your confidence interval, t$-$stalislic, and p$-$value match those of the t$-$test $()$ function.$($Hint: Just repeatedly paste the code into R$.)$ Keep track how many times, out of $50,$ you rejected the null hypothesis, which would be Type $1$ errors.