rookzelig returns transformation R code