%Maternal behavior in rats
clear all
close all force
  disp('Maternal Behavior: Sphericity Tests')
  set(0, 'DefaultAxesFontSize', 16);
  lw =2.5;  fs = 16;  msize = 10;



     retritime = [ 15   10   25   15   20   18;  
                         30   15   20   25   23   20;   
                         40   35   50   43   45   40]'; 
          
epsi = epsGG(retritime)   %0.5576
% Trujillo-Ortiz, A., R. Hernandez-Walls, A. Castro-Perez and K. Barba-Rojo. (2006).
%   epsGG:Greenhouse-Geisser epsilon. A MATLAB file. [WWW document]. URL http://
%   www.mathworks.com/matlabcentral/fileexchange/loadFile.do?objectId=12839

Barspher(retritime)  %pval = 0.0789; sph not rejected
%  Trujillo-Ortiz, A. and R. Hernandez-Walls. (2003). Barspher: Bartlett's sphericity tests. 
%    A MATLAB file. [WWW document]. URL http://www.mathworks.com/matlabcentral/fileexchange/
%    loadFile.do?objectId=3694&objectType=FILE

Mauspher(retritime)  % pval = 0.0789; sph not rejected
%  Trujillo-Ortiz, A. and R. Hernandez-Walls. (2003). Mauspher: Mauchly's sphericity tests. 
%    A MATLAB file. [WWW document]. URL http://www.mathworks.com/matlabcentral/fileexchange/
%    loadFile.do?objectId=3694&objectType=FILE




%%