I'm trying to replicate a study in which they standardized an estimate as follows:

The standardization was accomplished by subtracting the mean of the distribution from each value and dividing by the standard deviation of the distribution.

How to create a formula/function?

I tried to do general normalization as follows, but I couldn't understand the above to change my code

normalize <- function(x) {
  return(((x - min(x,na.rm = T)) / (max(x,na.rm = T) - min(x,na.rm = T)))*100)
}