Identity transformation (do nothing)
transform_identity() identity_trans()
plot(transform_identity(), xlim = c(-1, 1))