https://github.com/cran/ensembleBMA
Raw File
Tip revision: 039bcb56eec51675e5f29d59983d3cbdfd883479 authored by Chris Fraley on 15 September 2009, 00:00:00 UTC
version 4.3.3
Tip revision: 039bcb5
quantBMAnormal.R
`quantBMAnormal` <-
function(alpha, WEIGHTS, MEAN, SD)
{
  lower <- 0
  upper <- max(MEAN+6*SD)

  if (cdfBMAnormal(lower, WEIGHTS, MEAN, SD, 0) > alpha) return(NA)
  if (cdfBMAnormal(upper, WEIGHTS, MEAN, SD, 0) < alpha) return(NA)

  z <- uniroot(cdfBMAnormal, lower = lower, upper = upper,
               WEIGHTS=WEIGHTS, MEAN=MEAN, SD=SD, offset = alpha)

  z$root
}

back to top