#Code written by William Doonan 2019
#This code finds relevant statistics for the randomised partition
#Run this code after running "InitializingRandomCommunity.R"

$ARI score between Infomap communities and randomised one
compare(infmp,infmpRand,method=c("adjusted.rand"))

#Finding the in and out community citations for randomized communities
incitInfmpRand<- citDistFirst$lag[citDistFirst$selfcit==0&citDistFirst$ingroupInfmpR==1]
outcitInfmpRand<- citDistFirst$lag[citDistFirst$selfcit==0&citDistFirst$ingroupInfmpR==0]

mean(incitInfmpRand)
mean(outcitInfmpRand)
median(incitInfmpRand)
median(outcitInfmpRand)
#Number of citations
length(incitInfmpRand)
length(outcitInfmpRand)
#Welch's t-test is implicit in this function call
t.test(incitInfmpRand,outcitInfmpRand)