Sumatory of every link for a node? Bipartite

Question

I\'m working on my Final\'s degree project about bipartite networks.

I have the next code in a bipartite weighted network:

prueba<-read.csv("ma