# Demo Matrix "Sicherheitsmängel bei Autos ..."

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

# Alle Variablen löschen

rm(list=ls())


rnamen <- c("Renault 19", "Toyota Corolla", "VW Golf", "Opel Vektra",
		"Fiat Tipo", "Ford Escort", "Opel Kadett")
cnamen <- c("Fahrgastzelle", "Lenkrad", "Armaturenbrett", "Fußraum",
		"Seitenverkleidung", "Vordersitze", "Rücksitze")


X <- matrix(c(	2.1, 2.6, 2.0, 2.5, 3.8, 2.3, 3.3,
			1.6, 3.0, 2.3, 3.5, 3.0, 2.8, 2.2,
			2.6, 2.3, 2.8, 2.8, 3.0, 2.2, 2.7,
			2.9, 2.0, 2.1, 2.5, 3.5, 2.2, 2.3,
			3.8, 4.1, 3.5, 3.5, 3.8, 3.3, 3.3,
			4.6, 3.6, 3.1, 3.0, 3.5, 2.7, 3.2,
			2.0, 2.8, 2.1, 2.8, 3.3, 2.8, 3.3
			), 
		nrow=7,
		byrow=T,
		dimnames = list(rnamen, cnamen)
		)