"setPrior.MBparams.MBdataDE" <-
function(x,data,pNum)
{
    isCompat <- compatObjects(x,data)
    if(!is.numeric(pNum) || (length(pNum) != 1) || !(pNum %in% 1:x@m))
      stop("Invalid parameter number pNum")
    x <- setValue(x,pNum,c(log((1-data@prop)/data@prop),log(data@prop/(1-data@prop))))
    return(x)
}