 Usage:  {datt, risk} = stein (dat, var)  
 
 Input:

  dat                    p vector of input data 
                         
  var                    scalar, variance 
                         
 Output:

  datt                   p vector, thresholded estimate 
                         
  risk                   scalar, minimal risk 
                         
--------------------------------------------------------------
(C) MD*TECH Method and Data Technologies, 17.8.2000
