@@ -4,8 +4,8 @@ TEST_F(AgradRev, ProbDistributionsGaussCopulaCholesky) {
4
4
// Bind functors for compatibility with AD framework
5
5
auto f = [](const auto func1, const auto func2) {
6
6
return [=](const auto & y, const auto & args, const auto & sigma) {
7
- auto lcdf_functors = std::make_tuple (std::make_tuple (func1, args[0 ]),
8
- std::make_tuple (func2, args[ 1 ] ));
7
+ auto lcdf_functors = std::make_tuple (std::make_tuple (func1, args[0 ], args[ 1 ] ),
8
+ std::make_tuple (func2));
9
9
auto sigma_sym = stan::math::multiply (0.5 , sigma + sigma.transpose ());
10
10
auto L = stan::math::cholesky_decompose (sigma_sym);
11
11
return stan::math::gaussian_copula_cholesky_lpdf (y, lcdf_functors, L);
@@ -17,15 +17,15 @@ TEST_F(AgradRev, ProbDistributionsGaussCopulaCholesky) {
17
17
Eigen::VectorXd y1 (2 );
18
18
y1 << 1.0 , 0.1 ;
19
19
Eigen::VectorXd args (2 );
20
- args << 0 , 2.0 ;
20
+ args << 2 , 1 ;
21
21
22
- auto func1 = [](const auto & y, const auto & mu ) {
23
- return stan::math::normal_lcdf (y, mu, 1.0 );
22
+ auto func1 = [](const auto & y, const auto & shape, const auto & scale ) {
23
+ return stan::math::gamma_lcdf (y, shape, scale );
24
24
};
25
25
auto func2 = [](const auto & y) { return stan::math::std_normal_lcdf (y); };
26
26
27
27
Eigen::MatrixXd Sigma22 (2 , 2 );
28
28
Sigma22 << 2.0 , 0.5 , 0.5 , 1.1 ;
29
29
30
- stan::test::expect_ad (f (func2 , func2), y1, args, Sigma22);
30
+ stan::test::expect_ad (f (func1 , func2), y1, args, Sigma22);
31
31
}
0 commit comments