load('../Data/StudData2012.txt')

kjonn=StudData2012(:,1);
hogde=StudData2012(:,4);

indexKvinne=find(kjonn==2);
hogdeKvinne=hogde(indexKvinne);

plot(hogdeKvinne,'.')

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

%SME, reiser bort ila påska
nBort=9;
nTron=1;
p=0.9;
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;x_1, ..., x_{10})')
title('Likelihoodfunksjon, studentpåske')

