'How to calculate giant components total line weight after extracting it from igraph network R

I have created a igraph network in R. After the removal of a few nodes the graph is divided into a few no clusters. My intention is to extract a giant component and calculate its edge weights.

library(igraph)
library(CINNA)
el=read.csv(file.choose())
el[,1]=as.character(el[,1])
el[,2]=as.character(el[,2])
el=as.matrix(el)
g=graph.edgelist(el[,1:2],directed=FALSE)
E(g)$weight=as.numeric(el[,3]) 
g<-simplify(g,remove.multiple=T,remove.loops=T)
.....
ge=giant_component_extract(g)

Now I am unable to extract the edge weight



Sources

This article follows the attribution requirements of Stack Overflow and is licensed under CC BY-SA 3.0.

Source: Stack Overflow

Solution Source