Submission

Schrick-Noah_CS-7863_Homework-1.R

@@ -23,7 +23,9 @@ g.deg <- degree(g)
 # Plots
 mainname <- paste("Network based on Degree for the", g.netname, "network", sep=" ")
 sizemult <- 25/max(g.deg)
-plot(g, vertex.size = g.deg*sizemult, main=mainname)
+if(g.netname == "yeast"){
+  plot(g, vertex.size = g.deg*sizemult, main=mainname, vertex.label=NA)
+} else{plot(g, vertex.size = g.deg*sizemult, main=mainname)}
 g.hist <- hist(g.deg,-1:max(g.deg),plot=F)
 plot(g.hist)
 
@@ -36,7 +38,9 @@ t(t(g.eigs.sorted)) #print one element per line
 sizemult <- 25/g.eigs.sorted[1]
 V(g)$size <- (g.eigs*sizemult) #size the network nodes by eigenvector centrality 
 mainname <- paste("Network based on Eigenvector Centrality for the", g.netname, "network", sep=" ")
-plot(g, main=mainname)
+if(g.netname == "yeast"){
+  plot(g, main=mainname, vertex.label=NA)
+} else{plot(g, main=mainname)}
 
 
 
@@ -48,7 +52,9 @@ t(t(g.pr.sorted))
 sizemult <- 25/g.pr.sorted[1]
 V(g)$size <- (g.pr*sizemult) #size the network nodes by page rank 
 mainname <- paste("Network based on Page Rank for the", g.netname, "network", sep=" ")
-plot(g, main=mainname)
+if(g.netname == "yeast"){
+  plot(g, main=mainname, vertex.label=NA)
+} else{plot(g, main=mainname)}
 
 ############### Katz ############### 
 katz.cent <- function(A, alpha=NULL, beta=NULL){ #NULL sets the default value
@@ -82,6 +88,7 @@ kcs.df
 sizemult <- 25/kcs.df[,1][1]
 V(g)$size <- (kcs*sizemult) #size the network nodes by page rank 
 mainname <- paste("Network based on Katz Centrality for the", g.netname, "network", sep=" ")
-plot(g, main=mainname)
-
+if(g.netname == "yeast"){
+  plot(g, main=mainname, vertex.label=NA)
+} else{plot(g, main=mainname)}