powered by
contract.last.level
contract.last.level(G)
G
library(gRapfa) data(Wheeze) G <- st(Wheeze) G.c <- contract.last.level(G) plot(G.c)
Run the code above in your browser using DataLab