 Usage:  {r,s}=stointp(aIh,b,N)  

 

 Input:



  aIh                    dim: p; diag. of Eigenvalues of A I^{1/2}, 

                         I Fisher-Information (all >=0)! 

                         

  b                      numeric; clipping height >0 

                         

  N                      numeric; sample size for MC-Integration 

                         

 Output:



  r                      p-dim; r=diag(E[ YY' u min(b/|aIhY|,u) ]) 

                         

  s                      p-dim; s=diag(E[ YY' min(b/|aIhY|,u)^2 ]) 

                         

--------------------------------------------------------------

(C) MD*TECH Method and Data Technologies, 21.9.2000

