Nothing
#' Stable log sum of exponential calculations
#'
#' The function \code{logsumexp} is used for stable computation of log(sum(exp(x))), which is useful when summing weights for example.
#'
#' @param x The values for which you want to compute log(sum(exp(x)))
#'
#' @return The stable result of log(sum(exp(x)))
#'
#' @name logsumexp
#' @seealso See \link{ZVCV} for more package details.
logsumexp <- function(x){
myMax <- max(x)
x <- x - myMax
return (log(sum(exp(x))) + myMax)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.