The following function can do the work as well
antilog<-function(lx,base)
{
lbx<-lx/log(exp(1),base=base)
result<-exp(lbx)
result
}
This solution is based on the change of base formula which states that :
log (x,base=b) = log(x,base=a)/log(b,base=a)
The original logarithm is changed into natural logarithm and then the
exponential function is employed
The arguments are:
'lx', de logarithm we have.
'base', the base what was employed to obtain lx
For example:
log(78,10) = 1.892095
Then the antllog is
antilog(1.892095,10)
78
As expected.
______________________________________________
R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
