%% Eksempel p? empirisk forventning, varians og korreleasjon

load('../Data/StudDataV16.txt')
%%
hogde=StudDataV16(:,1);
hogdeFar=StudDataV16(:,2);
hogdeMor=StudDataV16(:,3);
kjonn=StudDataV16(:,4);
har=StudDataV16(:,5);
auge=StudDataV16(:,6);

menn=find(kjonn==1);
kvinner=find(kjonn==2);

figure
subplot(2,1,1)
hist(hogde(menn))
title('Hogde menn')
subplot(2,1,2)
hist(hogde(kvinner))
title('Hogde kvinner')
%% Gjennomsnitt
gjsnittMenn=mean(hogde(menn))
gjsnittKvinner=mean(hogde(kvinner))

%% Empririsk varians og standard avvik
varMenn=var(hogde(menn))
stdMenn=std(hogde(menn))

varKvinner=var(hogde(kvinner))
stdKvinner=std(hogde(kvinner))

%% Korrelasjon
KorrelasjonDatterMor=corr(hogde(kvinner), hogdeMor(kvinner),'rows','complete')



%% Triller Nsample terningar og tar gjennomsnittet
Nsample=10;
sample=randi(6,[Nsample,1]);
mean(sample)

%% Paa ei linje
mean(randi(6,[Nsample,1]))

%% Pengespel med terning
Nspel=1
terningkast=0;
gevinst=0;
terningkast=randi(6,[1,Nspel]); %trillar terning Nspel gongar
f=find(terningkast<6); 
gevinst(f)=-terningkast(f); %maa betale
f=find(terningkast==6);
gevinst(f)=10; %faar pengar
mean(gevinst)

%%

