"calcSim.MBparams" <-
function(x,func,pNum)
  {
    isValid <- validObject(x)
    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]])
    isValid <- validObject(x)
    return(x)
  }