"calcLods.MBnetwork" <-
function(x)
  {
    isValid <- validObject(x)
    return(log(x@Margs[2,]/x@Margs[1,]))
  }