"addGenes.MBdataKS.MBdataDE" <-
function(x,data,Name=NULL)
  {
    isValid <- validObject(x)
    isValid <- validObject(data)
    x@N <- x@N+data@N
    x@IDs <- c(x@IDs,data@IDs)
    x@assoc <- c(x@assoc,as.character(rep(NA,data@N)))
    if(!is.null(Name))
      x@Name <- Name
    isValid <- validObject(x)
    return(x)
  }