rep_matrix.hpp

Go to the documentation of this file.

#ifndef STAN_MATH_REV_FUN_REP_MATRIX_HPP
#define STAN_MATH_REV_FUN_REP_MATRIX_HPP
 
#include <stan/math/prim/fun/Eigen.hpp>
#include <stan/math/rev/core.hpp>
#include <stan/math/prim/meta.hpp>
#include <stan/math/prim/err.hpp>
#include <stan/math/prim/fun/rep_matrix.hpp>
 
namespace stan {
namespace math {
 
template <typename Ret, typename T, require_var_matrix_t<Ret>* = nullptr,
          require_var_t<T>* = nullptr>
inline auto rep_matrix(const T& x, int m, int n) {
  check_nonnegative("rep_matrix", "rows", m);
  check_nonnegative("rep_matrix", "cols", n);
  return make_callback_var(
      value_type_t<Ret>::Constant(m, n, x.val()),
      [x](auto& rep) mutable { x.adj() += rep.adj().sum(); });
}
 
template <typename Ret, typename Vec, require_var_matrix_t<Ret>* = nullptr,
          require_var_matrix_t<Vec>* = nullptr>
inline auto rep_matrix(const Vec& x, int n) {
  if (is_row_vector<Vec>::value) {
    check_nonnegative("rep_matrix", "rows", n);
    return make_callback_var(x.val().replicate(n, 1), [x](auto& rep) mutable {
      x.adj() += rep.adj().colwise().sum();
    });
  } else {
    check_nonnegative("rep_matrix", "cols", n);
    return make_callback_var(x.val().replicate(1, n), [x](auto& rep) mutable {
      x.adj() += rep.adj().rowwise().sum();
    });
  }
}
 
}  // namespace math
}  // namespace stan
 
#endif