echo on
% Agencja nieruchomo¶ci w Japonii poda³a, ¿e ceny gruntu w centrum Tokio 
% wzros³y o 49\% w ci±gu ostatniego roku. Inwestor chc±c przetestowaæ te dane,
% znajduje próbê 18 nieruchomo¶ci w centrum Tokio, dla których zna cenê obecna
% i sprzed roku. Dla ka¿dej nieruchomo¶ci oblicza procentowy wzrost warto¶ci a
% nastêpnie znajduje ¶redni± i odchylenie standardowe z próby. Statystyki próby
% wynosz± $\bar x = 38$\% i $s = 14$\%. Przeprowad¼ test na poziomie istotno¶ci 
% $\alpha = 0.01$.

mu_o=49;
x=38;
s=14;
N=18;
a=0.01;

t=(x-mu_o)/(s/sqrt(N));

% Odp: zaobserwowanie równie ma³ej lub mniejszej wartoœci srednieg wzrostu
% cen przy przwadziwej hipotezie zerowej i podanym rozmiarze próbki wynosi

p=tcdf(t,N-1)
% jest to znacznie mniej ni¿ za³o¿ony poziom istotnoœci wiêc odrzucamy
% hipotezê zerow¹
echo off