Solve the question by using R

$(1)$ Using the faithful data set compute the average waiting time

between eruptions of the

Old Faithful geyser. Report your result in a sentence of the following form

$$ The average waiting time between eruptions of the Old Faithful geyser in the data

set faithful is X minutes.

with X replaced by the correct value computed with inline code in your $.$Rmd file.

Make sure to use proper markup to have Old Faithful and faithful in italics.

$(2)$ Compute the first four eruption durations in the faithful data sets. Use a code chunk

that shows both the code and the results as produced by R$.$ Don$$t forget to include a

sentence explaining what you are showing.

$(3)$ Using the head function compute the first five rows of the faithful data frame and

show the result as a nicely formatted table. In this case your report should show only

the table, not the code that produces it$.$ You can start with this code chunk:

$\{$r$,$ echo $=$ FALSE$\}$

d $<-$data.frame$($x $=$ c$(1,2,3),$ y $=$ c$(4,5,6))$

kbl $<-$ knitr::kable$($d$,$ format $="$html$")$

kableExtra::kable$\_$styling$($kbl$,$ full$\_$width $=$ FALSE$)$

$$

$(4)$ Use the hist function to create a histogram of the eruption durations in the faithful

data set.