% Medlevärde, Std. Avv. och konfidensintervall från rumstemperaturmätserie

% Importera data från tabell
DATA2 = importdata('1_2Reference_DOT_DECIMAL.txt');
i = DATA2(:,1);
T_rums = DATA2(:,2);

% Beräkna Medelvärde
Tmean = mean(T_rums)

% Beräkna Std. Avv.
tsum = 0;
for elm = i' + 1
    tsum = tsum + ((T_rums(elm, 1) - Tmean).^2);
end
tsum = sum(tsum);
N = size(T_rums);
N = N(:,1);
sigma = sqrt( tsum / (N - 1) )

% Beräkna  95% konfidensintervall
% t-värde tagen från tabell över t-fördelning
t = 2.01;
% Undre och övre gränserna
konf = [Tmean - t*(sigma / sqrt(N)), Tmean + t*(sigma / sqrt(N))]
