echo on
% Linie lotnicze, projektuj¹c nowy samolot chc¹ sprawdziæ 
% czy œrednia waga baga¿u rêcznego zabieranego przez pasa¿erów 
% nie zmieni³a siê od czasu poprzednich badañ i wynosi wci¹¿ 12 kg.
% Analiza ma byæ przeprowadzona na poziomie istotno¶ci $\alpha = 0.05$. 
% Analityk pobra³ próbê baga¿u rêcznego 144 pasa¿erów i obliczy³ wartoœæ
% œredni¹ z próby $\bar x = 14.6$ kg i 
% odchylenie standardowe z próby $s = 7.8$. 
% PrzeprowadŸ test hipotezy, ¿e $\mu = 12$.

mu_0=12;
a=0.05;
N=144;
x=14.6;
s=7.8;

% test dotyczy sredniej wiec jej std:
std_mu=s/sqrt(N);

% odchylenie std obliczyliœmy z proby => stosujemy test t
t=(mu_0-x)/std_mu
% test jest dwustronny mamy wiec dwie wartosci krytyczna t :
disp([ tinv(a,N-1) tinv(1-a,N-1)])
%'Odp: Wyliczone t lezy poza obszarem akceptacji hipotezy zerowej,
% zatej odrzucamy hipoteze zerowa i akceptujemy alternatywna.'
echo off