noah/Network-Degree-Distribution
1
0
Fork 1
Code Issues Pull Requests Projects Releases Wiki Activity

Linear model: Least-Squares Fit

Browse Source
This commit is contained in:
Noah L. Schrick 2022-04-11 13:37:21 -05:00
parent 952c77d802
commit f02246966c
1 changed files with 25 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
Schrick-Noah_CS-7863_Homework-4.R
View File

@ -2,3 +2,27 @@
# Degree Distribution
# Professor: Dr. McKinney, Spring 2022
# Noah Schrick - 1492657
library(igraph)
library(igraphdata)
data(yeast)
g <- yeast
################# Linear model: Least-Squares Fit #################
g.hist <- hist(degree(g), freq=FALSE)
g.seq <- 0:max(degree(g)) # x-axis
g.breaks <- g.hist$breaks[-c(1,2)] # remove 0 and low degrees
g.probs <- g.hist$density[-1] # make lengths match
# Need to clean up probabilities that are 0
nz.probs.mask <- g.probs!=0
g.breaks.clean <- g.breaks[nz.probs.mask]
g.probs.clean <- g.breaks[nz.probs.mask]
plot(log(g.breaks.clean), log(g.probs.clean))
g.fit <- lm(log(g.probs.clean)~log(g.breaks.clean))
summary(g.fit)
coef(g.fit)[2]
################# Max-Log-Likelihood #################