a b/Semantic Features/isNotLessTTest.m 

  1
  
function [ p ] = isNotLessTTest( x1, x2, y1, y2 )





  
  

  2
  
%isLessTTest 'left' "mean of X is less than mean of X2"





  
  

  3
  
%   High p -> Hnull: X1 = X2 (X1 >= X2)





  
  

  4
  
%   Low  p -> Halt : X1 < X2 





  
  

  5
  
%x2 should be rt. 





  
  

  6
  
x1 = round(x1); %convert to classifications





  
  

  7
  
x2 = round(x2);





  
  

  8
  
y1 = round(y1);





  
  

  9
  
y2 = round(y2);





  
  

  10
  
x1Success = (x1 == y1);





  
  

  11
  
x2Success = (x2 == y2);





  
  

  12
  
[is, p, confInt, stats] = ttest2(x1Success, x2Success, 'tail', 'left', 'Vartype', 'unequal');





  
  

  13
  





  
  

  14
  
%should change to just return is so can use as a logic test





  
  

  15
  





  
  

  16
  
end





  
  

  17