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,29 +52,31 @@ 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
-    if (class(A) == 'igraph'){
-        #Error checking. Turn into adj matrix.
-        A <- get.adjacency(A)
-    }
+  if (class(A) == 'igraph'){
+    #Error checking. Turn into adj matrix.
+    A <- get.adjacency(A)
+  }
   
-    lam.dom <- eigen(A)$values[1] #dom eigenvec
-    if (is.null(alpha)){
-        alpha <- 0.9 * (1/lam.dom) #Set alpha to 90% of max allowed
-    }
+  lam.dom <- eigen(A)$values[1] #dom eigenvec
+  if (is.null(alpha)){
+    alpha <- 0.9 * (1/lam.dom) #Set alpha to 90% of max allowed
+  }
   
-    n <- nrow(A)
-    if (is.null(beta)){
-        beta <- matrix(rep(1/n, n),ncol=1)
-    }
+  n <- nrow(A)
+  if (is.null(beta)){
+    beta <- matrix(rep(1/n, n),ncol=1)
+  }
   
-    #Katz scores
-    scores <- solve(diag(n) - alpha*A,beta)
+  #Katz scores
+  scores <- solve(diag(n) - alpha*A,beta)
   
-    return(scores)
+  return(scores)
 }
 
 kcs <- katz.cent(g) # call the function
@@ -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)}