 clear all
 close all
  disp('RandR Study')
  set(0, 'DefaultAxesFontSize', 16);
  lw =2.5;  fs = 16;  msize = 10;

  
data =[...
  65.2 60.1 62.9 56.3 71.6 60.6;...
  85.8 86.3 85.7 80.5 92.0 87.4;...
  100.2 94.8 100.1 94.5 107.3 104.4;...
  85.0 95.1 84.8 90.3 92.3 94.6;...
  54.7 65.8 51.7 60.0 58.9 67.2;...
  98.7 90.2 92.7 87.2 98.9 93.5;...
  94.5 94.5 91.0 93.4 95.4 103.3;...
  87.2 82.4 83.9 78.8 93.0 85.8;...
  82.4 82.2 80.7 80.3 87.9 88.1;...
  100.2 104.9 99.7 103.2 104.3 111.5];

data=data(:)
element = repmat([1:10]',6,1)
operator = [repmat(1,20,1); repmat(2,20,1); repmat(3,20,1)]
[TABLE, stats] = gagerr(data,{element, operator})