# NOT RUN {
  ### rank a variable
  ptrafo(data.frame(y = 1:20), 
         numeric_trafo = function(x) rank(x, na.last = "keep"))
  ### dummy coding of a factor
  ptrafo(data.frame(y = gl(3, 9)))
# }
Run the code above in your browser using DataLab