powered by
logAdd(x)
x
x <- log(c(0.0001, 0.0003, 0.000006)) y <- logAdd(x) ##verification that the computation is correct z <- sum(c(0.0001, 0.0003, 0.000006)) z exp(y)
Run the code above in your browser using DataLab