## the example below takes about 30 seconds to execute and for that reason
## it is not executed by default
## Not run:
# require(graph)
#
# set.seed(123)
# nVar <- 1000
# g1 <- randomEGraph(V=as.character(1:nVar), p=0.1)
# g1
# clqs1 <- qpGetCliques(g1, clqspervtx=TRUE, verbose=FALSE)
#
# length(clqs1)
#
# g2 <- removeEdge(from="1", to=edges(g1)[["1"]][1], g1)
# g2
#
# system.time(clqs2a <- qpGetCliques(g2, verbose=FALSE))
#
# system.time(clqs2b <- qpUpdateCliquesRemoving(g1, clqs1, "1", edges(g1)[["1"]][1], verbose=FALSE))
#
# length(clqs2a)
#
# length(clqs2b)-nVar
# ## End(Not run)
Run the code above in your browser using DataLab