load('../Data/StudData2012.txt')
kjonn=StudData2012(:,1);
har=StudData2012(:,2);
auge=StudData2012(:,3);


%The event A: brown hair
fbruntHar=find(har==2);
antbruntHar= length(fbruntHar)

%The event B: brown eyes
fbruneAuge=find(auge==2);
antbruneAuge=length(fbruneAuge)

% A \cap B, brown eys and brown hair
fbrunebrune=find(auge==2 & har==2);
antbrunbrun=length(fbrunebrune)

%Pr(A \cup B)
pr=(antbruntHar+antbruneAuge-antbrunbrun)/length(har)

%Antall brune og brunt og kvinne
brunbrunkvinne=find(kjonn==2 & auge==2 & kjonn==2);
antbrunbrunkvinne=length(brunbrunkvinne)