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