I'm confused as to how to do this, can someone please explain?

```{r} twinData %>% group_by(cohort,zygosity) %>% do(tidy( cor.test(~ ht1 + ht2, alternative = "greater" , data = . ))) ```

5. sort the result of above computation from the largest estimate of correlation coefficient to the smallest.

Answer:

Heres the data set we are using:

```{r, message = FALSE} library(tidyr) library(dplyr)

#install.packages("OpenMx") library(OpenMx) data(twinData) twinData <- as_tibble(twinData) ```