https://github.com/cran/ensembleBMA
Tip revision: ea0c78a3c549f0e14d5d8585b74546f91299cd6c authored by Chris Fraley on 25 January 2015, 00:00:00 UTC
version 5.1
version 5.1
Tip revision: ea0c78a
cdfBMAgamma0.R
`cdfBMAgamma0` <-
function (x, WEIGHTS, MEAN, VAR, PROB0, offset = 0)
{
#
# copyright 2006-present, University of Washington. All rights reserved.
# for terms of use, see the LICENSE file
#
RATE <- MEAN/VAR
sum(WEIGHTS*(PROB0+(1-PROB0)*pgamma(x,shape=MEAN*RATE,rate=RATE)))-offset
}