
indexMann=find(StudDataV2011(:,1)==1)
indexKvinne=find(StudDataV2011(:,1)==2)
hogdeMann=StudDataV2011(indexMann,2)
hogdeKvinne=StudDataV2011(indexKvinne,2)

mean(hogdeKvinne)
var(hogdeKvinne)
std(hogdeKvinne)

%SME, reiser bort ila påska
nBort=7;
nTron=3;
p=0.1;
p^nBort*(1-p)^nTron

%Likelihoodfunksjon
p=0:0.01:1;
L=p.^nBort.*(1-p).^nTron;
plot(p,L,'LineWidth',2)
xlabel('p')
ylabel('L(p;z)')
title('Likelihoodfunksjon, studentpåske')

