% zad 1
A=xlsread('C:\dane2.xls')

% zad 2
% srednia
mean(A)
% mediana
quantile(A,.50)
% kwantyl 1
quantile(A,.25)
% kwantyl 1
quantile(A,.75)
% wariancja
var(A)
% odchylenie standardowe
std(A)
% skosnosc //TODO comment
skewness(A)
% kurtuoza //TODO commnet
kurtosis(A)

%zad 3,4 //TODO comment

%zaleznos b -> a
corr(A(:,1),A(:,2))
plot(A(:,1),A(:,2),'bo')
title('Zaleznosc kolumny B od A')
xlabel('kolumna: A')
ylabel('kolumna: B')
%zaleznos c -> a
corr(A(:,1),A(:,3))
plot(A(:,1),A(:,3),'bo')
title('Zaleznosc kolumny C od A')
xlabel('kolumna: A')
ylabel('kolumna: C')

% zad 5
a = polyfit(A(:,1),A(:,2),1)

p = polyval(a,A(:,1))
blad = abs(A(:,2)-p)
C =[A(:,1),blad]
D = sortrows(C,1)

subplot(1,2,1)
plot(A(:,1),A(:,2),'bo',A(:,1),p,'r-')
title('regresja liniowa')
xlabel('kolumna: A')
ylabel('kolumna: B')

subplot(1,2,2)
plot(D(:,1),D(:,2),'b-')
title('Blad regresji liniowej')
xlabel('kolumna: A')
ylabel('błąd')