"calcMargs.MBnetwork" <-
function(x,value=.1)
  {
    isValid <- validObject(x)
    x@Margs[1,] <- NA
    x@Margs[2,] <- NA
    is.value <- (x@Counts[1,] == value) & (x@Counts[2,] == value)
    if(!all(is.value) && (x@N > 0)) {
      x@Margs[2,!is.value] <- x@Counts[2,!is.value]/colSums(x@Counts[,!is.value])
      x@Margs[1,!is.value] <- 1-x@Margs[2,!is.value]
    }
    return(x)
  }