"compatObjects.MBparams.MBnetwork" <-
function(x,y,chkvals=TRUE,test=FALSE)
  {
    isCompatN <- compatObjects.N(x,y,test)
    if(is.character(isCompatN))
      isCompatN
    else if((x@N==0) || (x@m==0) || (chkvals && any(is.na(x@Values)))) {
      compatText <- "At this point, both @N and @m must be > 0 and/or parameters must have values"
      if(test)
        compatText
      else
        stop(compatText)
    }
    else
      TRUE
  }