diff --git a/script/netvis/sub_summary.R b/script/netvis/sub_summary.R
index 8ad0349..ea8ff32 100644
--- a/script/netvis/sub_summary.R
+++ b/script/netvis/sub_summary.R
@@ -111,4 +111,6 @@ for(i in 1:ntop){
   visSave(vis_g_top[[i]], paste(Sys.getenv("resv"), "_top", i, "_", name, ".html", sep=""), selfcontained=F) 
   
   ## end information 
+  gc()
 }
+
diff --git a/script/netvis/tot_summary.R b/script/netvis/tot_summary.R
index a181c18..8bb48e2 100644
--- a/script/netvis/tot_summary.R
+++ b/script/netvis/tot_summary.R
@@ -87,3 +87,4 @@ net_number <- length(unique(comp))
 vertex_number  <- length(V(g_bs))
 edge_number <- length(E(g_bs))
 
+gc()