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