"setPrior.MBparams" <-
function(x,pNum,prop)
{
    isValid <- validObject(x)
    if(!is.numeric(pNum) || (length(pNum) != 1) || !(pNum %in% 1:x@m))
      stop("Invalid parameter number pNum")
    if(is.null(prop) || is.na(prop) || !(prop >= 0) || !(prop <= 1))
      stop("prop must be between 0 and 1",sep="")
    x <- setValue(x,pNum,c(log((1-prop)/prop),log(prop/(1-prop))))
    return(x)
}