original_string: 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);
      }
code: 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);
      }
code_tokens: 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 ) ; }
docstring: Return the upper triangular factor
  
  @return Matrix upper triangular factor
docstring_tokens: Return the upper triangular factor