"setKLrepeat.MBgibbsPars" <-
function(x,KLrepeat)
{
    isValid <- validObject(x)
    x@KLrepeat <- KLrepeat
    isValid <- validObject(x)
    return(x)
}