Write the R code needed to convert a data frame that looks like this:

$\backslash$table$[[,$grp$,$sex,meanL,sdL$,$meanR,sdR$],[1,$A$,$F$,0\mathrm{.}22,0\mathrm{.}11,0\mathrm{.}34,0\mathrm{.}08],[2,$A$,$M$,0\mathrm{.}47,0\mathrm{.}33,0\mathrm{.}57,0\mathrm{.}33],[3,$B$,$F$,0\mathrm{.}33,0\mathrm{.}11,0\mathrm{.}40,0\mathrm{.}07],[4,$B$,$M$,0\mathrm{.}55,0\mathrm{.}31,0\mathrm{.}65,0\mathrm{.}27]]$

into a data frame that looks like this:

$\backslash$table$[[,$grp$,$F$.$meanL,F$.$meanR,F$.$sdL$,$F$.$sdR$,$M$.$meanL,M$.$meanR,M$.$sdL$,$M$.$sdR$],[1,$A$,0\mathrm{.}22,0\mathrm{.}34,0\mathrm{.}11,0\mathrm{.}08,0\mathrm{.}47,0\mathrm{.}57,0\mathrm{.}33,0\mathrm{.}33],[2,$B$,0\mathrm{.}33,0\mathrm{.}40,0\mathrm{.}11,0\mathrm{.}07,0\mathrm{.}55,0\mathrm{.}65,0\mathrm{.}31,0\mathrm{.}27]]$

Hint: You will need to use pivot$\_$longer$(),$ unite$(),$ and pivot$\_$wider$().$

The unite $()$ function is the inverse of separate $()-$ it combines multiple columns into a single column. By default, unite $()$ will place an underscore between the values from different columns; if you prefer to use a different string $($say$,$ a period, hint hint$),$ provide that string as the sep argument.

I recommend you manually recreate the original data frame above using the data. frame $()$ function so that you can test your solution. $($I have given many examples of how to manually create data frames in my lecture examples, so you can review the lecture code files if you are unsure how to do this.$)$