###########
# Blatt 9 #
###########

#aufgabe 3

beo<-c(3,5,16,14,11,6,4,0,1,0)

erw<-dpois(0:8,3)
erw[10]<-1-sum(erw)

erw<-erw*60

res<-beo-erw

stat<-sum(res^2/erw)

#p-Wert
1-pchisq(stat,9)

#Nullhypothese kann nicht nicht verworfen werden

#aufgabe 4

AO <- read.table("/Users/anatol/Desktop/†-leiter/Statistik I/AgentOrange.txt",header=T,sep="",quote="")

attach(AO)
t.test(AO[Veteran == "Vietnam",1], AO[Veteran == "Other",1])

#nicht signifikant verschieden

boxplot(Dioxin ~ Veteran)

t.test(AO[Veteran == "Vietnam" & Dioxin< 20,1], AO[Veteran == "Other" & Dioxin< 20,1])


#Ausreisser bei Vietnamveteranen haben staerkeren Einfluss.

var(AO[Veteran == "Vietnam",1])
var(AO[Veteran == "Other", 1])

var(AO[Veteran == "Vietnam" & Dioxin< 20,1])
var(AO[Veteran == "Other" & Dioxin< 20,1])