1 #ifndef STAN_MATH_PRIM_MAT_FUN_QR_R_HPP
2 #define STAN_MATH_PRIM_MAT_FUN_QR_R_HPP
13 Eigen::Matrix<T, Eigen::Dynamic, Eigen::Dynamic>
14 qr_R(
const Eigen::Matrix<T, Eigen::Dynamic, Eigen::Dynamic>& m) {
15 typedef Eigen::Matrix<T, Eigen::Dynamic, Eigen::Dynamic> matrix_t;
19 static_cast<size_t>(m.rows()),
20 static_cast<size_t>(m.cols()));
21 Eigen::HouseholderQR<matrix_t> qr(m.rows(), m.cols());
23 matrix_t R = qr.matrixQR();
24 if (m.rows() > m.cols())
25 R.bottomRows(m.rows() - m.cols()).setZero();
26 for (
int i = 0; i < R.cols(); i++) {
27 for (
int j = 0; j < i; j++)
28 R.coeffRef(i, j) = 0.0;
bool check_greater_or_equal(const char *function, const char *name, const T_y &y, const T_low &low)
Return true if y is greater or equal than low.
Eigen::Matrix< fvar< T >, Eigen::Dynamic, Eigen::Dynamic > qr_R(const Eigen::Matrix< fvar< T >, Eigen::Dynamic, Eigen::Dynamic > &m)
bool check_nonzero_size(const char *function, const char *name, const T_y &y)
Return true if the specified matrix/vector is of non-zero size.