This shows you the differences between two versions of the page.
Both sides previous revision Previous revision | |||
the_gsru_pseudo-code [2012/05/14 11:19] andres |
the_gsru_pseudo-code [2012/05/14 11:21] (current) andres |
||
---|---|---|---|
Line 1: | Line 1: | ||
This is from [[http://www.journalofdairyscience.org/article/S0022-0302(08)71471-1/abstract | Legarra & Misztal 2008]] | This is from [[http://www.journalofdairyscience.org/article/S0022-0302(08)71471-1/abstract | Legarra & Misztal 2008]] | ||
- | * Fortran code: | + | * Fortran code: |
<code fortran> | <code fortran> | ||
Double precision:: xpx(neq),y(ndata),e(ndata),X(ndata,neq), & | Double precision:: xpx(neq),y(ndata),e(ndata),X(ndata,neq), & | ||
Line 28: | Line 28: | ||
</code> | </code> | ||
- | * R code: | + | * R code: |
<code rsplus> | <code rsplus> | ||
#get diagonal of X’X | #get diagonal of X’X |