#ifndef STAN_MATH_PRIM_PROB_ORDERED_PROBIT_LOG_HPP
#define STAN_MATH_PRIM_PROB_ORDERED_PROBIT_LOG_HPP

#include <stan/math/prim/meta.hpp>
#include <stan/math/prim/prob/ordered_probit_lpmf.hpp>

namespace stan {
namespace math {

/** \ingroup multivar_dists
 * Returns the (natural) log probability of the integer/s
 * given the vector of continuous location/s and
 * specified cutpoints in an ordered probit model.
 *
 * <p>Typically the continuous location
 * will be the dot product of a vector of regression coefficients
 * and a vector of predictors for the outcome.
 *
 * @tparam propto True if calculating up to a proportion.
 * @tparam T_y y variable type (int or array of integers).
 * @tparam T_loc Location type (double or vector).
 * @tparam T_cut Cut-point type (vector or array of vectors).
 * @param y Integers
 * @param lambda Continuous location variables.
 * @param c Positive increasing cutpoints.
 * @return Log probability of outcome given location and
 * cutpoints.
 * @throw std::domain_error If the outcome is not between 1 and
 * the number of cutpoints plus 2; if the cutpoint vector is
 * empty; if the cutpoint vector contains a non-positive,
 * non-finite value; or if the cutpoint vector is not sorted in
 * ascending order.
 * @throw std::invalid_argument If array y and vector lambda
 * are different lengths.
 * @throw std::invalid_argument if array y and array of vectors
 * c are different lengths.
 *
 * @deprecated use <code>ordered_probit_lpmf</code>
 */
template <bool propto, typename T_y, typename T_loc, typename T_cut>
return_type_t<T_loc, T_cut> ordered_probit_log(const T_y& y,
                                               const T_loc& lambda,
                                               const T_cut& c) {
  return ordered_probit_lpmf<propto>(y, lambda, c);
}

/** \ingroup multivar_dists
 * @deprecated use <code>ordered_probit_lpmf</code>
 */
template <typename T_y, typename T_loc, typename T_cut>
return_type_t<T_loc, T_cut> ordered_probit_log(const T_y& y,
                                               const T_loc& lambda,
                                               const T_cut& c) {
  return ordered_probit_lpmf(y, lambda, c);
}

}  // namespace math
}  // namespace stan
#endif
