tests/testthat/modules/s3.r

In klmr/modules: Modules for R

test = function (x)
    UseMethod('test')

test.default = function (x)
    'test.default'

test.character = function (x)
    'test.character'

print.test = function (x)
    's3$print.test'

register_S3_method('print', 'test', print.test)

se = function (...)
    UseMethod('se')

se.default = function (...)
    's3$se.default'

se.contrast.test = function (...)
    's3$se.contrast.test'

register_S3_method('se.contrast', 'test', se.contrast.test)