Как преобразовать отрицательные значения в положительные в R

z<-z*sign(z)
Dead Dog