"initCounts.MBnetwork" <-
function(x,value=.1)
  {
    isValid <- validObject(x)
    x@Counts[1,] <- value
    x@Counts[2,] <- value
    x@Margs[1,] <- NA
    x@Margs[2,] <- NA
    isValid <- validObject(x)
    return(x)
  }