# Matrix "Planeten"

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

# Alle Variablen löschen

rm(list=ls())


rnamen <- c("Merkur", "Venus", "Erde", "Mars", "Jupiter", "Saturn", "Uranus", "Neptun", "Pluto")

cnamen <- c("Abstand", "Neigung", "Umlaufzeit", "Geschwindigkeit", "Durchmesser", "Dichte")


X <- matrix(c(
		0.387,   7.00,	0.24,	  47.87,	4879,		5.427,	
		0.723,   3.40,	0.62,	  35.02,	12104,	5.243,	
		1.000,   0.00,	1.00,	  29.78,	12756,	5.515,	
		1.524,   1.85,	1.88,	  24.14,	6794,		3.933,	
		5.203,   1.31,	11.86,  13.07,	142984,	1.326,	
		9.582,   2.48,	29.46,  9.67,	120536,	0.687,	
		19.201,  0.77,	84.01,  6.84,	51118,	1.270,	
		30.047,  1.77,	164.79, 5.48,	49528,	1.638,	
		39.482,  17.16,	248.20, 4.75,	2390,		1.750	
	
), 
		nrow=9,
		byrow=T,
		dimnames = list(rnamen, cnamen)
		)