I am trying this function to normalize my data but i am getting an Error message:
fboxcox <- function(Hg..ng.g.,lambda){stopifnot(all(Hg..ng.g.> 0))Hg..ng.g.<- Hg..ng.g./exp(mean(log(Hg..ng.g.)))
if(isTRUE(all.equal(lambda, 0))){log(Hg..ng.g.)}else{Hg..ng.g.^lambda-1/lambda}}
My function to normalize Hg (ng/g) mercury values of two sites
fboxcox <- function(Hg..ng.g.,lambda){stopifnot(all(Hg..ng.g.> 0))Hg..ng.g.<- Hg..ng.g./exp(mean(log(Hg..ng.g.)))
if(isTRUE(all.equal(lambda, 0))){log(Hg..ng.g.)}else{Hg..ng.g.^lambda-1/lambda}}