"addParams.MBparams" <-
function(x,N=NULL,m,Names=NULL,Values=NULL)
  {
    isValid <- validObject(x)
    if(!is.null(N))
      x@N <- N
    x@m <- x@m+m
    if(is.null(Names))
      Names <- rep(NA,times=m)
    x@Names <- c(x@Names,Names)
    if(is.null(Values))
      Values <- matrix(nrow=2,ncol=m)
    else if(is.null(nrow(Values)) || (nrow(Values)==1))
      Values <- rbind(Values,Values)
    x@Values <- cbind(x@Values,Values)
    lsim <- length(x@Sim)
    if(m < 0)
      stop("m must be >= 0")
    else if (m>=1) {
      if (x@N <= 0)
        stop("@N must be > 0 if parameters are added")
      else {
        for(i in 1:m) {
          x@Sim[[lsim+i]] <- as.matrix.csr(0,nrow=x@N,ncol=x@N)
        }
      }
    }
    isValid <- validObject(x)
    return(x)
  }