clear, close all

% Načteme si data z Excelu. Jde samozřejmě načítat i z jiných programů, ale často jsou uloženy právě ve formě xlsx.
% Funkce readtable nám umožní načíst data ve formě tabulky, se kterou se dále pracuje lépe z důvodu menší šance použití špatných dat. Do funkce readtable se použije pouze název Excelovského souboru (musí být buď na cestě nebo být vidět v Current folder).
% Je možné nadefinovat i název listu (defaultně se předpokládá použití prvního listu), to by se napsalo například jako
% T=readtable('cv3_priklad_data.xlsx','sheet','tento_list');
% Jde nastavit ještě mnoho dalších parametrů, poukud použiváme český jazyk, doporučuji dát parametr: "PreserveVariableNames",true), který umožní dále pracovat s nezkrácenými popisy v tabulce.

T=readtable('cv3_priklad_data.xlsx');%,"PreserveVariableNames",true);

% Data rozdělíme do 2 vektorů - na muže a ženy. Muži bývají obvykle označováni hodnotou 0, ženy hodnotou 1.
% Nejdříve vytvoříme vektor mužů

kde=T.Pohlav_==0;
muzi=T(kde,:);

%  a seřadíme je podle velikosti

muzi_vaha_seradit=sort(muzi.v_ha);

% Teď vytvoříme vektor s váhou žen

kde=T.Pohlav_~=0;

% tento zápis říká, že to platí, když T není rovno 0. Samozřejmě lze použít ==1

zeny=T(kde,:);
zeny_vaha_seradit=sort(zeny.v_ha);

% A vykreslime grafy

plot(muzi_vaha_seradit,'x')
hold on %umozni nam to kreslit vic grafu tzv. na sebe
plot(zeny_vaha_seradit,'ro')
legend('muzi','zeny')

% Přidáme přímku, či jinou funkci. Předpis takové funkce je na nás.
% My v tomto případě použijeme lineární funkci
% y=b_0 +b_1 x
% kde x  je nezávisle proměnná a y je závisle proměnná. Důležité je určit správně parametry přímky b_0  a b_1. To budeme dělat později, v tuto chvíli to jsou libovolné vhodně zvolené hodnoty, tedy

b0=50;
b1=0.8;
x=1:size(muzi_vaha_seradit,1);
y=b0+b1*x;

plot(x,y,'g')

%



%