#Beispiel 1		
kg=matrix(c(1,	187,	80,2,	100,	25,3,	198,	86,4,	130,	35,5,	165,	69,6,	178,	75,7,	181,	77,8,	178,	85,9,	50,	4,10,	175,	70,
11,	174	,72),ncol=3,byrow=T)
kg=as.data.frame(kg)
names(kg)=c("Objekt","Koerpergroesse","Gewicht")


##########################################################
#Beispiel 2		
ga=matrix(c(1,	61,	41,2,	62,	31,3,	76,	50,4,	70,	34,5,	94,	34,6,	85,	43,7,	61,	41,8,	92,	43,9,	52,	57,10,	76,	31,11,	82,	57,
12,	94,	38),ncol=3,byrow=T)
ga=as.data.frame(ga)
names(ga)=c("Objekt","Gewicht","Alter")


############################################################
#Beispiel 3		

ap=matrix(c(1,	60,	350,
2,	30,	540,
3,	20,	570,
4,	35,	490,
5,	45,	450,
6,	44,	450,
7,	28,	550,
8,	64,	360,
9,	18,	600,
10,	54,	400),ncol=3,byrow=T)
ap=as.data.frame(ap)
names(ap)=c("Objekt","Alter","Praemie")


###############################################################
#Beispiel 4

xy=matrix(c(1,	5,	4,	1.386294361,
2,	2,	1.5,	0.405465108,
3,	4,	2,	0.693147181,
4,	3,	2.5,	0.916290732,
5,	10,	15,	2.708050201,
6,	6,	4.826809,	1.574185587,
7,	7,	7,	1.945910149,
8,	8,	8.15730721,	2.098914116,
9,	9,	11,	2.397895273,
10,	1,	1.3,	0.262364264,
11,	11,	18,	2.890371758),ncol=4,byrow=T)
xy=as.data.frame(xy)
names(xy)=c("Objekt","X","Y","lnY")


################################################################
#Beispiel 5 
ksa=matrix(c(1,	90,	10,	5,
2,	100,	5,	9,
3,	80,	12,	5,
4,	95,	8,	7,
5,	103,	4,	8,
6,	110,	10,	9,
7,	120,	4,	13,
8,	150,	2,	15,
9,	120,	7,	10,
10,	115,	8,	7,
11,	110,	6,	9,
12,	130,	3,	10),ncol=4,byrow=T)
ksa=as.data.frame(ksa)
names(ksa)=c("Objekt","Groesse","Schnell","Alter")

####################################
#Uebung 1
xy=matrix(c(1,	1.5,	3,
            2,	2,	10,
            3,	3	,12,
            4,	4,	20,
            5,	5.2,	25),ncol=3,byrow=T)
xy=as.data.frame(xy)
names(xy)=c("Proband","xi","yi")

########################################
#Uebung 2
EU=matrix(c(58.1,	419,57.2,	329,81.6,	293,39.8,	291,10.5,	241,10.1,	238,9.8,	199,58.3,	174,
            8,	163,3.6,	146,0.4,	115,15.5,	114,8.8,	101,5.1,	81,
            5.1,	75),ncol=2,byrow=T)
EU=as.data.frame(EU)
names(EU)=c("Bevoelk","Verfahren")
EU$Land=c("Frankreich","Italien","Deutschland","Spanien","Griechenland",
          "Belgien","Portugal","GB","Oesterreich","Irland","Luxemburg","Niederlande",
          "Schweden","Finnland","Daenemark")


#################################################
#Uebung 3

ME=matrix(c(1,	5,	4,2,	6,	7,3,	7,	5.5,4,	5,	4,5,	8,	7.5,6,	4,	3.5,7,	9,	8,8,	8.5,	7,
            9,	9,	4,10,	9.5,	8,11,	6.5,	7,12,	7.5,	6),ncol=3,byrow=T)
ME=as.data.frame(ME)
names(ME)=c("Mitarbeiter","Vorgesetzer_A","Vorgesetzter_B")


####################################################
#Uebung 4
AZL=matrix(c(1,	0,	10,	81.6,2,	1,	12,	81.3,3,	2,	15,	77.4,4,	3,	15,	71.2,5,	5.2,	17,	70.1,6,	5.2,	19,	66.7,7,	6.5,	20,	65.9,8,	7.7,	20,	64.7,
             9,	8.8,	20,	62.6,10,	9.4,	20,	61.9,11,	9.9,	21,	59.7,12,	16.1,	22,	58.1,13,	17.6,	22,	58,14,	18,	23,	57.6,15,	19.1,	24,	56.3,16,	20.5,	24,	53.9,
             17,	24.7,	24,	51.6,18,	24.9,	25,	50.7,19,	37.5,	26,	47.5,20,	45.6,	28,	29.5),
           ncol=4,byrow=T)
AZL=as.data.frame(AZL)
names(AZL)=c("Proband","Akoholkonsum","Zigarettenkonsum","Lebenserwartung")

#####################################################
#Uebung 5
V12=matrix(c(10.17,51.2,10.15,53.4,10.45,53.4,10.77,55.1,10.17,55.6,11.75,56,11.1,56.4,11.01,56.6,10.25,57.9,
             12.39,58.5,10.26,58.6,11.37,58.9,11.31,59.3,10.98,59.9,10.9,60.2,11.42,60.6,11.69,60.8,11.11,61.9,10.81,62.4,11.16,62.5,
             11.13,62.6,11.2,62.8,12.39,64.2,13.06,64.4,11.9,65.2,12.61,65.3,13.08,65.3,13.03,65.5,12.17,66.1,12.81,66.4,
             12.08,66.7,13.35,67,13.63,68,12.65,68.3,12.57,68.4,13.92,68.4,12.52,68.4,13.07,69.2,13.26,69.3,14.69,70.2,
             13.97,70.4,13.42,70.9,13.85,71.2,14.24,71.5,14.56,71.5,13.49,71.8,13.52,72.1,12.85,73.1,14.26,73.6,13.19,74.3,
             14.44,75.2,14.63,76.1,14.27,76.5,14.07,77.6,14.24,78.2,14.99,78.3,
             16.74,85.2),ncol=2,byrow=T)
V12=as.data.frame(V12)
names(V12)=c("V1","V2"); head(V12)