Mulig forkert udregning i segment.quality() - within mobilitiy (men heldigvis nærmest uden konsekvenser)

[emilBeBri]

Skriver det her for at for at huske de forskellige ting vi skal tale om i næste måned, og for at få en praksis op at stå om det her:

i segment.quality-funktionen benyttes følgende til at udregne den interne mobilitet:

 niveau.qual <- round(diag(mat.niveau)/((rowSums(mat.niveau) + 
            colSums(mat.niveau))/2), 3)

Det vil sige, der summers både række-vis og kolonnevis, og gennemsnittet af dette tages. Men, intern mobilitet handler vel om en node, og hvor mobilitet fra den bevæger sig hen. Derfor bør kun række-summen medtages, så det kun er fra denne node:

niveau.qual <- round(diag(mat.niveau)/(rowSums(mat.niveau)), 3)