robust scale wrapper

robust_scale(data, dim = 2, preserveMean = FALSE)