grubs.m

来自「这是天津大学刘则毅老师编写的那本书中的源代码」· M 代码 · 共 17 行

function g=grubs(x,h)
%grubs        to find a outlying observation in 
%             normal sample with unknown varance
%             using grubbs' criterion
%
%
%h=0          if a low observation has been suspected
%             outlying
%h=1          if a top observation has been suspected
%             outlying
%
%             by SHI DAOJI
if h==0
g=( mean ( x ) - min (x) ) / std ( x );
else 
g=( max ( x ) - mean ( x ) ) / std ( x );
end