1 #ifndef STAN_MATH_PRIM_MAT_PROB_MATRIX_NORMAL_PREC_LOG_HPP 2 #define STAN_MATH_PRIM_MAT_PROB_MATRIX_NORMAL_PREC_LOG_HPP 39 template <
bool propto,
40 typename T_y,
typename T_Mu,
typename T_Sigma,
typename T_D>
41 typename boost::math::tools::promote_args<T_y, T_Mu, T_Sigma, T_D>::type
43 <T_y, Eigen::Dynamic, Eigen::Dynamic>& y,
45 <T_Mu, Eigen::Dynamic, Eigen::Dynamic>& Mu,
47 <T_Sigma, Eigen::Dynamic, Eigen::Dynamic>& Sigma,
49 <T_D, Eigen::Dynamic, Eigen::Dynamic>& D) {
50 static const char*
function(
"matrix_normal_prec_log");
52 boost::math::tools::promote_args<T_y, T_Mu, T_Sigma, T_D>::type lp(0.0);
67 "Rows of random variable", y.rows(),
68 "Rows of location parameter", Mu.rows());
70 "Columns of random variable", y.cols(),
71 "Columns of location parameter", Mu.cols());
73 "Rows of random variable", y.rows(),
74 "Rows of Sigma", Sigma.rows());
76 "Columns of random variable", y.cols(),
77 "Rows of D", D.rows());
98 template <
typename T_y,
typename T_Mu,
typename T_Sigma,
typename T_D>
99 typename boost::math::tools::promote_args<T_y, T_Mu, T_Sigma, T_D>::type
101 <T_y, Eigen::Dynamic, Eigen::Dynamic>& y,
103 <T_Mu, Eigen::Dynamic, Eigen::Dynamic>& Mu,
105 <T_Sigma, Eigen::Dynamic, Eigen::Dynamic>& Sigma,
107 <T_D, Eigen::Dynamic, Eigen::Dynamic>& D) {
108 return matrix_normal_prec_log<false>(y, Mu, Sigma, D);
boost::math::tools::promote_args< T_y, T_Mu, T_Sigma, T_D >::type matrix_normal_prec_log(const Eigen::Matrix< T_y, Eigen::Dynamic, Eigen::Dynamic > &y, const Eigen::Matrix< T_Mu, Eigen::Dynamic, Eigen::Dynamic > &Mu, const Eigen::Matrix< T_Sigma, Eigen::Dynamic, Eigen::Dynamic > &Sigma, const Eigen::Matrix< T_D, Eigen::Dynamic, Eigen::Dynamic > &D)
The log of the matrix normal density for the given y, mu, Sigma and D where Sigma and D are given as ...
void check_finite(const char *function, const char *name, const T_y &y)
Check if y is finite.
Eigen::Matrix< typename boost::math::tools::promote_args< T1, T2 >::type, R, C > subtract(const Eigen::Matrix< T1, R, C > &m1, const Eigen::Matrix< T2, R, C > &m2)
Return the result of subtracting the second specified matrix from the first specified matrix...
void check_ldlt_factor(const char *function, const char *name, LDLT_factor< T, R, C > &A)
Check if the argument is a valid LDLT_factor.
void check_size_match(const char *function, const char *name_i, T_size1 i, const char *name_j, T_size2 j)
Check if the provided sizes match.
Template metaprogram to calculate whether a summand needs to be included in a proportional (log) prob...
fvar< T > trace_gen_quad_form(const Eigen::Matrix< fvar< T >, RD, CD > &D, const Eigen::Matrix< fvar< T >, RA, CA > &A, const Eigen::Matrix< fvar< T >, RB, CB > &B)
void check_symmetric(const char *function, const char *name, const Eigen::Matrix< T_y, Eigen::Dynamic, Eigen::Dynamic > &y)
Check if the specified matrix is symmetric.
const double NEG_LOG_SQRT_TWO_PI
void check_positive(const char *function, const char *name, const T_y &y)
Check if y is positive.
T log_determinant_ldlt(LDLT_factor< T, R, C > &A)