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