"randInit.MBparams" <-
function(params,min=0,max=1,bind=TRUE)
{
  isValid <- validObject(params)
  if(is.null(min) || is.null(max) || is.na(min) || is.na(max) || !is.numeric(c(min,max)))
    stop("min and max must be real numbers")

  params@Values[1,] <- runif(params@m,min,max)
  if(bind) params@Values[2,] <- params@Values[1,]
  else params@Values[2,] <- runif(params@m,min,max)

  return(params)
}