Grafo no dirigido:

gr_numaristas(gr_nuevo([[0,1,1],[1,0,0],[1,0,0]],false))

RealDoble: 2

Pseudomultigrafo dirigido:

gr_numaristas(gr_nuevo([[2,3],[0,1]],true,false,true,true))

RealDoble: 6

Digrafo ponderado (aristas representadas por valor distinto de infinito):

gr_numaristas(gr_nuevo([[inf,inf,100],[-1,inf,-1],[inf,inf,inf]],true,true))

RealDoble: 3