library(tidyverse)

# nuovo file
zcars <- transmute(cars, zspeed = as.numeric(scale(speed)),
                   zdist = as.numeric(scale(speed)))
as_tibble(zcars)