Error in Fboxcox

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}}

This topic was automatically closed 21 days after the last reply. New replies are no longer allowed.

If you have a query related to it or one of the replies, start a new topic and refer back with a link.