function Correlation

clear;
years=1845:2:1903;
hare_pelts = 1000*[20,20,52,83,64,68,83,12,36,150,110,60,7,10,70,100,92,70,10,11,137,137,18,22,52,83,18,10,9,65];
lynx_pelts = 1000*[32,50,12,10,13,36,15,12,6,6,65,70,40,9,20,34,45,40,15,15,60,80,26,18,37,50,35,12,12,25];
length(hare_pelts)
length(lynx_pelts)
cov(lynx_pelts,hare_pelts)
corrcoef(lynx_pelts,hare_pelts)
figure
plot(lynx_pelts,hare_pelts,'x')
xlabel('lynx pelts')
ylabel('hare pelts')

