1 of 2
PeterR
  • 1373
  • 1
  • 9
  • 10

Found it! Subgraph[g, wcc[[1]], Options[g]]

PeterR
  • 1373
  • 1
  • 9
  • 10