## the method for group generic function Ops
## for signature( e1="structure", e2="vector")
function (e1, e2)
{
value <- callGeneric([email protected], e2)
if (length(value) == length(e1)) {
[email protected] <- value
e1
}
else value
}
## For more examples
## Not run: ------------------------------------
# showMethods("Ops", includeDefs = TRUE)
## ---------------------------------------------
Run the code above in your browser using DataLab