como converter valores negativos para positivo em r

z<-z*sign(z)
Dead Dog