"CpermSigGene" <-
function(params,graph,data,gibbsPars,...) stop("No method defined for that class")