regSGB <-
function(d, ...) UseMethod("regSGB")