Displaying 1 result from an estimated 1 matches for "siglength".
Did you mean:
bi_length
2014 Nov 25
0
problem with setGroupGeneric from package methods
...####
# add objects to the generic function's environment that allow
# table-based dispatch of methods
.setupMethodsTables <- function(generic,
initialize = !exists(".MTable", envir = env, inherits = FALSE))
{
env <- environment(generic)
if(initialize || !exists(".SigLength", envir = env, inherits = FALSE)) {
nsig <- 1
## check that groups of generics agree on .SigLength; otherwise
## labels won't match
for(gp in generic at group) { ### !!!
gpDef <- getGeneric(gp)
if(is(gpDef, "generi...