uniformPrior <- function(x, min=0.00001, max=100){
## Returns 1 if within bounds or 0 otherwise.
## Works with vectors.
return( log(as.numeric( all(min <= x & x <= max) ) ) )
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.