This code all works.

mutate(satisfied = if_else(satisfaction %in% c(5,6,7), 1, 0)) %>% group_by(assigned_sex) %>% summarize(`Portion Satisfied` = mean(satisfied)) %>% rename(Gender = assigned_sex) %>% knitr::kable(digits = 2)

* I need to create a function that finds the proportion of rows that are in the numerical range arranged by assigned_sex. Any help is appreciated in pointing me the right direction.

This doesn't mean(c(d$satisfaction %in% c(5,6,7[d$assigned_sex == 'male'])))