# costruiamo le variabili standardizzate
mutate(cars, zspeed = as.numeric(scale(speed)),
       zdist = as.numeric(scale(speed))) %>% 
  as_tibble()                                         # per visualizzare