%% Lastar inn og klargjer data fraa oving 1
load('trondheim.txt')
load('bodo.txt')
load('tynset.txt')

trtemp = trondheim(:,6);
tytemp = tynset(:,6);
botemp = bodo(:,6);

%% Boxplot for kvar maanad

boxplot(trondheim(:,6),trondheim(:,3))
xlabel('Mnd');
ylabel('Temperatur');
title('Trondheim');

%% FInn gjennomsnitt og standardavvik for kvar maanad

for(i = 1:12)
    mnddata=trtemp(trondheim(:,3)==i)
    gjsnittMnd(i) = mean(mnddata)
    stdMnd(i) = std(mnddata)
end

%% Ser etter avhengigheiter
figure

subplot(1,3,1)

plot(trtemp,tytemp,'.')
xlabel('Trondheim');
ylabel('Tynset');

subplot(1,3,2)
plot(trtemp,botemp,'.')
xlabel('Trondheim');
ylabel('Bodo');

subplot(1,3,3)
plot(botemp,tytemp,'.')
xlabel('Bodo');
ylabel('Tynset');

%% Finn korrelasjon mellom Trondheim, Bodo og Tynset

corrTynsetTrondheim=corr(trtemp,tytemp)

corrTrondheimBodo=corr(trtemp,botemp)

corrBodoTynset=corr(botemp,tytemp)




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


%% Varians med kjent forventning
varians=mean((sample-3.5).^2)
%Standardavviket
standardavvik=sqrt(varians)