# Demo-Matrix "Schulnoten für 10 Schüler in 4 Fächern"

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

# Alle Variablen löschen

rm(list=ls())


rnamen <- c("Schüler 1", "Schüler 2", "Schüler 3", "Schüler 4", "Schüler 5", 
		"Schüler 6", "Schüler 7", "Schüler 8", "Schüler 9", "Schüler 10")

cnamen <- c("Deutsch", "Philosophie", "Mathematik", "Physik")


X <- matrix(c( 	2, 3, 1, 2,
			4, 4, 3, 2,
			1, 1, 2, 2,
			3, 2, 4, 5,
			2, 2, 1, 2,
			4, 3, 2, 2,
			4, 3, 2, 3,
			1, 2, 4, 4, 
			2, 2, 3, 3,
			3, 2, 1, 3),
			 
		ncol=4,
		byrow=T,
		dimnames = list(rnamen, cnamen)
		)