R/bijectivityback.R

Defines functions bijectivityback

Documented in bijectivityback

bijectivityback <-
function(xt, power)
 {
  if (power == 0)
   {
   	res <- T } else {
   	x <- powerUntransform(xt = xt, power = power)
    newxt <- powerTransform(x = x, power = power)
    res <- all.equal(xt, newxt)
   }
 }

Try the tlm package in your browser

Any scripts or data that you put into this service are public.

tlm documentation built on May 2, 2019, 2:11 p.m.