R/getNodeNumber.R

setGeneric("getNodeNumber",function(edges, nodes){standardGeneric("getNodeNumber")})
setMethod("getNodeNumber", signature=signature(edges="vector", nodes="vector"),
          function(edges, nodes){
            return(c(which(nodes==strsplit(edges,'~')[[1]][1]),which(nodes==strsplit(edges,'~')[[1]][2])))
          })

Try the RchyOptimyx package in your browser

Any scripts or data that you put into this service are public.

RchyOptimyx documentation built on Nov. 8, 2020, 5:27 p.m.