# NOT RUN {
library(DynComm)
parameters<-matrix(c("e","0.1","w", "FALSE"),ncol=2, byrow=TRUE)
dc<-DynComm(ALGORITHM$LOUVAIN,CRITERION$MODULARITY,parameters)
dc$addRemoveEdges(
matrix(
c(0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,12,13,1,1,1,2,2,2,18,12,19,20,2,3,11,12,4,9,5,9,22)
,ncol=2)
)
dc$postProcess(
list(
list(POSTPROCESSING$DENSOPT)
)
)
dc$select(POSTPROCESSING$DENSOPT) #selects the results of densopt
dc$select(POSTPROCESSING$NONE) #selects the main algorithm results
dc$postProcess(NULL) #remove post processing
## or just
## dc$postProcess()
# }
Run the code above in your browser using DataLab