#Specifying a multivariate independent uniform prior
rmviu <- function(n,a,b){
return(mapply(FUN = function(min.vec,max.vec,pn){stats::runif(pn,a,b)},
min.vec=a,max.vec=b,MoreArgs = list(pn = n)))
}
dmviu <- function(x,a,b){
for(ii in 1:ncol(x)){
x[,ii] <- dunif(x[,ii],a[ii],b[ii])
}
return(apply(x,1,prod))
}
IBIS.logreg.opts(prior.override = TRUE,rprior = rmviu,
dprior = dmviu,a=rep(0,3),b=rep(1,3))
Run the code above in your browser using DataLab