vec_1 <- mtcars$mpg
vec_2 <- hai_scale_zscore_vec(vec_1)
ax <- pretty(min(vec_1, vec_2):max(vec_1, vec_2), n = 12)
hist(vec_1, breaks = ax, col = "blue")
hist(vec_2, breaks = ax, col = "red", add = TRUE)
Run the code above in your browser using DataLab