"calcSim.MBparams.MBdataKS" <-
function(x,meta,func,pNum,...)
  {
    isCompat <- compatObjects(x,meta)
    if(!is.function(func) || !("sim" %in% names(formals(func))))
      stop("Invalid similarity function \"func\"")
    if(!is.numeric(pNum) || (length(pNum) != 1) || !(pNum %in% 1:x@m))
      stop("Invalid parameter number pNum")
    x@Sim[[pNum]] <- func(x@Sim[[pNum]],meta@assoc,...)
    isValid <- validObject(x)
    return(x)
  }