An internal function
R_mstep2(invsqrtW_,JYp_,loopsize_, patternlength_,rownumber_,ybetas_,etahat_,
tempmatR_,JXpi_,JXpp_,JXpx_,JXpdim_,JZpi_,JZpp_,JZpx_,JZpdim_)
an internal variable
an internal variable
an internal variable
an internal variable
an internal variable
an internal variable
an internal variable
an internal variable
an internal variable
an internal variable
an internal variable
an internal variable
an internal variable
an internal variable
an internal variable
an internal variable