The below line does not work, it does not convert the data per case_when, could you point out why?
change <- mtcars[,-1] %>% mutate(across(~ case_when(. <100 ~ 1,
. ==100 ~ 0,
. >100 ~ -1)))