1margEff <- function( object, ... ) 2 UseMethod( "margEff" ) 3 4# default method 5margEff.default <- function( object, ... ) { 6 stop( "there is currently no default method available" ) 7} 8 9