 clear all
close all force


 disp('Mushrooms')
 lw = 3; 
 set(0, 'DefaultAxesFontSize', 16);
 fs = 15;
 msize = 10;

 



amanita =[9.2, 8.8, 9.1, 10.1,...
              8.5, 8.4, 9.3,  8.7,...
              9.7, 9.9, 8.4,  8.6,...
              8.0, 9.5, 8.8,  8.1,...
              8.3, 9.0, 8.2,  8.6,...
              9.0, 8.7, 9.1,  9.2,...
              7.9, 8.6, 9.0,  9.1,...
              9.2, 8.8, 9.1, 10.1];
           
          %(a)
          fivens =  [min(amanita)  prctile(amanita,25) ...
              median(amanita)  prctile(amanita,75)  max(amanita)]
          figure(1)
          boxplot(amanita,'orientation','horizontal')
          %(b)
          [mean(amanita) mode(amanita)]
          %(c)
          zis = zscore(amanita);
          figure(2)
          histn(zis,-3,0.5,3);
          hold on
          plot( -3:0.2:3, normpdf(-3:0.2:3),'r-','linewidth',4)
          
          