R/I_sumExpTrick.R
In mfasiolo/esaddle: Extended Empirical Saddlepoint Density Approximations
Defines functions
.meanExpTrick
.sumExpTrick
.sumExpTrick <- function(x)
{
z <- max(x)
out <- sum( exp(x - z) ) * exp(z)
return( out )
}
.meanExpTrick <- function(x)
{
return( .sumExpTrick(x) / length(x) )
}
mfasiolo/esaddle documentation built on June 28, 2021, 8:49 a.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Defines functions .meanExpTrick .sumExpTrick
.sumExpTrick <- function(x)
{
z <- max(x)
out <- sum( exp(x - z) ) * exp(z)
return( out )
}
.meanExpTrick <- function(x)
{
return( .sumExpTrick(x) / length(x) )
}
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.