"setValues.MBparams" <-
function(x,Values)
{
    isValid <- validObject(x)
    if(is.null(nrow(Values)) || (nrow(Values)==1)) Values <- rbind(Values,Values)
    x@Values[] <- Values
    isValid <- validObject(x)
    return(x)
}