R/pUniformNormalTails.r

In bpp: Computations Around Bayesian Predictive Power

Defines functions pUniformNormalTails

Documented in pUniformNormalTails

pUniformNormalTails <- function(x, mu, width, height){

  res <- rep(NA, length(x))
  
  for (i in 1:length(res)){
    res[i] <- integrate(dUniformNormalTails, lower = -Inf, upper = x, mu = mu, width = width, height = height, 
    subdivisions = 300)$value
    }
  
  return(res)
}

Try the bpp package in your browser