###################################################
## Anpassungstest einer Wählerstichprobe
###################################################

## Konfidenzniveau
alpha <-  0.05

## Ergebnisse 2006

wahlen.2006 <-  data.frame(#
                "Partei"=c("CDU", "SPD", "Gruene", "FDP", "andere"),
                "Ergebnis" = c(0.4415, 0.2515, 0.1169, 0.1065, 0.0836))

Stichprobe <- c(407, 191, 295, 37, 71)
n <-  length(Stichprobe)
Teststatistik <-  sum(  (Stichprobe - n*wahlen.2006$Ergebnis)^2/(n*wahlen.2006$Ergebnis)  )

##  chi-quadrat-quantil
Freiheitsgrade <-  nrow(wahlen.2006)-1
# schwellenwert
c <- qchisq(1-alpha,Freiheitsgrade)
# ausgabe
Teststatistik; c ; Teststatistik > c

## verfahren mit eingebautem Test
testergebnis <- chisq.test(Stichprobe, p=wahlen.2006$Ergebnis)

## testergebnis anzeigen
testergebnis

## die einzelnen Werte des testergebnisses kennenlernen
str(testergebnis)

## p-Wert des testergebnisses abfragen
testergebnis$p.value