The following file was read into R: MOAGUN.xls darr

moag readxl: :read$\_$xls$($file$.$choose$())$

This data frame is not tidy so we will need to pivot it to a longer format, and then summarize by group. Fill in the missing code and for HorizS$4$ submit

the mean to $2$ decimal placesdf moag $ $>\%$

pivot$\_$longer$($

$+,$ cols $=$ starts$\_$with$("$Horiz$"),$

$+,$ names$\_$to $=$ "Horiz",

$+,$ values$\_$to $="y^{\text{'}\text{'}})$

$>$head$(df,2)$

# A tibble: $22$

Horiz y

$$chr$>$dbl$>$

$1$ Horizs$22\mathrm{.}28$

$2$ Horizs$49\mathrm{.}10$

$>$ df $\%>\%$

group$\_$by $($###$)\%>\%$

summarize$($

$+n=n(),$

$+,$ mean $=$mean$(y),$

$+,sd=sd(y)$

# A tibble: $34$

Horiz $n$ mean sd

$1$ Horizs$11100,4\mathrm{.}98,0\mathrm{.}976$

$2$ HorizS$21100,4\mathrm{.}98,2\mathrm{.}05$

$3$ HorizS$41100$ ### $3\mathrm{.}82$