R/list2arr.R

Defines functions list2arr

list2arr <-
function(netlist, gsym)
{
   names(gsym) = 1:length(gsym)
   g1<- names(netlist)
   deg = sapply(netlist, length)
   gg1 = gsym[rep(g1, deg)]
   gg2 = gsym[unlist(netlist)]
   arr= paste(gg1, gg2)
   return(arr)
}

Try the neaGUI package in your browser

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

neaGUI documentation built on May 2, 2019, 5:41 p.m.