R Notebook

glass %>% select(-10) %>% lapply(IQR) %>% unlist() %>% sort()

      Ba       RI       Fe       Al        K       Si       Na 
0.000000 0.002635 0.100000 0.440000 0.487500 0.807500 0.917500 
      Ca       Mg 
0.932500 1.485000