function stat_cardio(X);

L = length(X);

figure(1)
subplot(311)
plot((1:L)/4,X(:,1))
title('intervalles RR')
xlabel('secondes')
subplot(312)
plot((1:L)/4,X(:,2))
title('pression arterielle moyenne')
xlabel('secondes')
subplot(313)
plot((1:L)/4,X(:,3))
title('respiration')
xlabel('secondes')
subplot(111)

disp(' ')
x = X(:,1);
m = mean(x);
s = std(x);
disp(cat(2,' moyenne RR ',num2str(m,'%6.2f'),'   std RR  ',num2str(s,'%6.2f')))
x = X(:,2);
m = mean(x);
s = std(x);
disp(cat(2,' moyenne PA  ',num2str(m,'%6.2f'),'   std PA   ',num2str(s,'%6.2f')))

v = corrcoef(X(:,1),X(:,2));
disp(cat(2,' covariance normalisée RR-PA    ',num2str(v(2,1),'%6.2f')))
v = corrcoef(X(:,1),X(:,3));
disp(cat(2,' covariance normalisée RR-Resp  ',num2str(v(2,1),'%6.2f')))
v = corrcoef(X(:,2),X(:,3));
disp(cat(2,' covariance normalisée PA-Resp  ',num2str(v(2,1),'%6.2f')))
disp(' ')

