% T7C3) Discussion of the data they will show that there is a single
% value is extremely large. Delete from the record and compare it
% She even mean and median
load('rt_VP5.mat');
[n, i] = max(rt_VP5);
rt_VP5_new = [rt_VP5(1:i-1);rt_VP5(i+1:end)];
hist(rt_VP5_new,50)

text(900,17,'Question T7C3', 'fontsize',17, 'color', 'r');
text(900,14,{'This is not a normal distribution because :';'1 -The bars on the right side of the distribution taper'; 
                                                         '   more or less differently to the bars on the left side.';
                                                        '2 -The distribution is  unbalanced,lopsided'}, 'fontsize',14);
  
text(900,12,'Question T7C3', 'fontsize',17, 'color', 'r');
mean_value = mean(rt_VP5_new);
text(900,11,['The mean Value is mean = ',num2str(mean_value)], 'fontsize',14, 'color', 'b');

median_value = median(rt_VP5_new);
text(900,10,['The median Value is median = ',num2str(median_value)], 'fontsize',14, 'color', 'b');