library(RDCOMServer)

def = SCOMFunctionClass(list(ttest = function(x, ...) t.test(as.numeric(x),...), rnorm = rnorm), name = "R.TTest")
def@classId = getuuid("11D2A4BC-7EBC-4236-80FF-2588EFCD8821")

registerCOMClass(def, registry = TRUE)