https://wikimirror.piraten.tools/wiki/index.php?action=history&feed=atom&title=Benutzer%3ASofia_El_Toro%2FAuswertungsskript
Benutzer:Sofia El Toro/Auswertungsskript - Versionsgeschichte
2026-05-12T14:24:14Z
Versionsgeschichte dieser Seite in Piratenwiki Mirror
MediaWiki 1.35.14
https://wikimirror.piraten.tools/wiki/index.php?title=Benutzer:Sofia_El_Toro/Auswertungsskript&diff=55923589&oldid=prev
imported>Sofia El Toro am 22. Juni 2014 um 19:53 Uhr
2014-06-22T19:53:15Z
<p></p>
<p><b>Neue Seite</b></p><div>=R Code=<br />
<br />
staedte=read.table(file="Stadtranking-EUW.csv", header=T, sep=",", dec=",")<br />
<br />
attach(staedte)<br />
<br />
mean(EUW) # Durchschnitt ist 1.784694<br />
<br />
median(EUW)<br />
<br />
lv_rank=aggregate(EUW, by=list(Land), FUN=mean)<br />
<br />
lv_rank=lv_rank[order(-lv_rank$x),]<br />
<br />
z=1<br />
<br />
for (i in 2:(dim(lv_rank)[1])) {<br />
<br />
if (lv_rank$x[i]<lv_rank$x[i-1]) <br />
<br />
{z=c(z,z[i-1]+1)} <br />
<br />
else {z=c(z,z[i-1])}<br />
<br />
}<br />
<br />
lv_rank=data.frame(z,lv_rank)<br />
<br />
br=seq(min(EUW),max(EUW),0.3)<br />
<br />
jpeg('hist.jpg')<br />
<br />
hist(EUW, breaks=br, freq=FALSE, main="Häufigkeit der Wahlergebnisse",xlab="Ergebnisse in %", xaxt="n")<br />
<br />
axis(1, at=br, labels=br)<br />
<br />
dev.off()</div>
imported>Sofia El Toro