"setValue.MBparams" <-
function(x,pNum,Value)
{
    isValid <- validObject(x)
    if(!is.numeric(pNum) || (length(pNum) != 1) || !(pNum %in% 1:x@m))
      stop("Invalid parameter number pNum")
    x@Values[,pNum] <- Value
    isValid <- validObject(x)
    return(x)
}