public function getR()
    {
        for ($i = 0; $i < $this->n; ++$i) {
            for ($j = 0; $j < $this->n; ++$j) {
                if ($i < $j) {
                    $R[$i][$j] = $this->QR[$i][$j];
                } elseif ($i == $j) {
                    $R[$i][$j] = $this->Rdiag[$i];
                } else {
                    $R[$i][$j] = 0.0;
                }
            }
        }
        return new PHPExcel_Shared_JAMA_Matrix($R);
    }
public function getR()
    {
        for ($i = 0; $i < $this->n; ++$i) {
            for ($j = 0; $j < $this->n; ++$j) {
                if ($i < $j) {
                    $R[$i][$j] = $this->QR[$i][$j];
                } elseif ($i == $j) {
                    $R[$i][$j] = $this->Rdiag[$i];
                } else {
                    $R[$i][$j] = 0.0;
                }
            }
        }
        return new PHPExcel_Shared_JAMA_Matrix($R);
    }
public function getR ( ) { for ( $ i = 0 ; $ i < $ this -> n ; ++ $ i ) { for ( $ j = 0 ; $ j < $ this -> n ; ++ $ j ) { if ( $ i < $ j ) { $ R [ $ i ] [ $ j ] = $ this -> QR [ $ i ] [ $ j ] ; } elseif ( $ i == $ j ) { $ R [ $ i ] [ $ j ] = $ this -> Rdiag [ $ i ] ; } else { $ R [ $ i ] [ $ j ] = 0.0 ; } } } return new PHPExcel_Shared_JAMA_Matrix ( $ R ) ; }
Return the upper triangular factor

@return Matrix upper triangular factor
Return the upper triangular factor