g2 <- delete.edges(g1, E(g1) [weight<20])

g2 <- delete.edges(g1, E(g1) [weight outside the top 5%])

g2 <- delete.edges(g1, E(g1) [ weight < quantile(weight, 0.95) ])