# Demo Matrix Zweitstimmen zur Bundestagswahl nach Land und Partei

# Eingabe der Datenfelder zunächst als Vektor,
# byrow = T: Zeilenweises einlesen!

# Alle Variablen löschen

rm(list=ls())


rnamen <- c("B-W", "BAY", "BER", "BRA", "BRE", "HAM", "HES", "M-V",
		  "NIE", "N-W", "R-P", "SAA", "SAC", "S-A", "S-H", "THU")
cnamen <- c("SPD", "CDU", "FDP", "GRU", "PDS", "SON")


N <- matrix(c(1742.6, 2451.9, 560.7, 544.8, 43.0, 325.8,
            1984.0, 3427.2,  430.1,  419.8,   36.6,  395.4,
		663.1,  612.2,  100.6,  199.2,  289.5,   85.4,
	 	617.4,  385.4,   36.0,   39.6,  264.2,   27.8,
	 	179.3,  119.1,   28.4,   43.7,   10.7,   13.1,
		389.9,  343.4,   71.1,  123.6,   22.0,   32.9,
		1296.8, 1417.7,  283.2,  322.5,   37.3,  128.5,
	 	283.0, 378.3,   33.4,   35.2,  231.8,   20.5,
		1938.3, 1971.7,  368.2,  338.1,   46.7,  114.3,
		4534.8, 3997.3,  804.0,  781.4,  102.4,  293.9,
		955.4, 1061.6,  168.5,  150.6,   15.1,   75.0,
		329.3, 251.0,   29.3,   39.0,    4.8,   21.4,
		621.6, 1229.3,   98.5,  122.6,  427.7,   62.4,
		502.2, 582.3,   61.0,   53.6,  270.2,   32.2,
		670.8, 702.4,  126.0,  140.4,   19.0,   34.6,
		431.9, 586.4,   59.3,   70.4,  245.1,   35.8), 
		nrow=16,
		byrow=T,
		dimnames = list(rnamen, cnamen)
		)