"CgibbsSampler" <-
function(x,params,gibbsPars,...) stop("No method defined for that class")