## Erstellen der Daten Tabelle<-matrix(c(65,103,106,74,85,47),ncol=3,byrow=T) ##Berechnen des Chi-Quadrats chi2<-chisq.test(Tabelle)$statistic ##Ausgabe des Chi-Quadrats chi2 ##Berechnen des Kontingenzkoeffizienten C<-sqrt((chi2*min(dim(Tabelle)))/((chi2+sum(Tabelle))*(min(dim(Tabelle))-1))) ##Ausgabe des Kontingenzkoeffizienten C