Dado el siguiente código de una red bipartita con enlaces pesados:
prueba<-read.csv("matriz_prueba.csv",header=TRUE,sep=";")
head(prueba)
PAIS_ORIGEN AFG ETH TZA PAK VNM
1 USA 6686.77 1726.46 834.16 2044.88 192.19
2 EU 609.50 396.27 298.63 244.11 84.17
3 IDA 424.68 1637.79 1461.09 1150.64 1939.73
4 FRA 95.65 45.01 26.00 20.54 341.29
5 JPN 867.20 154.99 182.21 272.97 1622.79
6 DEU 754.42 164.52 207.36 233.14 194.22
Me gustaría saber si hay alguna función en la librería bipartite que me sume el peso de todos los enlaces de un nodo y me devuelva el sumatorio de esos pesos para cada nodo, tanto en fila como en columna.
Ejemplo: (USA-AFG)+(USA-ETH)+...+(USA-VNM) => USA: 11.484,46
Gracias!