# NOT RUN {
library(dplyr)
library(purrr)
library(tidyr)
mtcars_tidy_permuted =
mtcars_tidy %>%
filter(feature == "mpg") %>%
head(5) %>%
permute_nest(car_model, c(feature,value))
mtcars_tidy_permuted %>%
# Summarise mpg
mutate(data = map(data, ~ .x %>% summarise(mean(value)))) %>%
unnest(data) %>%
# Lower triangular
lower_triangular(car_model_1, car_model_2, `mean(value)`)
# }
Run the code above in your browser using DataLab