"compatObjects.MBnetwork.MBparams" <-
function(x,y,chkvals=TRUE,test=FALSE)
  {
    isCompatN <- compatObjects.N(x,y,test)
    if(is.character(isCompatN))
      isCompatN
    else if((y@N==0) || (y@m==0) || (chkvals && any(is.na(y@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
  }