stats_metric update

[jonasmolsbeck]

data %>% 
  mutate(Programmieren = as.numeric(Programmieren),
         Mathe = as.numeric(Mathe)) %>% 
  select(Alter, Mathe, Programmieren) %>% 
  stats_metric()