#Beispiel aus Gamma.xls-Tabelle
dat=matrix(c(20,	24,	80,	82,22	,38,	104,	125,13,	28,	81,	113,7,	18,	54	,92),byrow=T,ncol=4)
library(varia)
dat=KreuzTabInDataframe(dat)
names(dat)=c("Einkommen","Zufried")
str(dat)
datt=table(dat$Einkommen,dat$Zufried)
rownames(datt)=c("< 6000","6000 - 15000","15000 - 25000",">25000")
colnames(datt)=c("sehr unzufrieden","etwas unzufrieden","ziemlich zufrieden","sehr zufrieden")

gamma.test(dat$Einkommen,dat$Zufried)


#	Uebung 1 aus Gamma.xls-Tabelle
dat1=matrix(c(	120,	50,	20,  80,	60,	30,  30,	65,	50),byrow=T,ncol=3) 
dat1=KreuzTabInDataframe(dat1)
names(dat1)=c("Zaehne","Rauchver")
str(dat1)
dat1t=table(dat1$Zaehne,dat1$Rauchver)
rownames(dat1t)=c("gut","mässig","schlecht")
colnames(dat1t)=c("raucht nicht","raucht mässig","raucht viel")

gamma.test(dat1$Zaehne,dat1$Rauchver)

#Uebung 2 aus Gamma.xls-Tabelle
dat2=matrix(c(11,	16,	23,	30,	18, 15,	20,	25,	15,	8),byrow=T,ncol=5) 
dat2=KreuzTabInDataframe(dat2)
names(dat2)=c("Kantonst","Zufried")
dat2t=table(dat2$Kantonst,dat2$Zufried)
rownames(dat2t)=c("Mittelwallis","Oberwallis")
colnames(dat2t)=c("unzufrieden","knapp zufrieden","mässig zufrieden","zufrieden","sehr zufrieden")
		
		
#Uebung 3 S. 474
dat3=matrix(c(14,2,10,3,5,11,3,13),ncol=4)
colnames(dat3)=c("unzufrieden","mäss.zufrieden","zufrieden","sehr zufrieden" )
rownames(dat3)=c("Männer","Frauen")
		dat3

#Uebung 4
dat4=matrix(c(16,13,16,16,10,12,15,24),ncol=4,byrow=T)
colnames(dat4)=c("unzufrieden","mäss.zufrieden","zufrieden","sehr zufrieden" )
rownames(dat4)=c("Männer","Frauen")
dat4