% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/decision.R
\name{htdv_rope}
\alias{htdv_rope}
\title{Region-of-Practical-Equivalence (ROPE) Decision}
\usage{
htdv_rope(draws, rope, level = 0.95)
}
\arguments{
\item{draws}{Numeric vector of posterior draws of the parameter of
interest.}

\item{rope}{Length-2 numeric vector \code{c(lower, upper)} defining the
practical-equivalence region.}

\item{level}{Credibility level for the highest-density interval.}
}
\value{
A list with \code{decision} (\code{"accept"}, \code{"reject"},
  \code{"undecided"}), \code{hdi}, \code{rope}, and \code{prob_in_rope}.
}
\description{
Posterior decision under Kruschke's (2018) Region of Practical Equivalence.
}
\examples{
draws <- rnorm(4000, mean = 0.05, sd = 0.1)
htdv_rope(draws, rope = c(-0.1, 0.1), level = 0.95)$decision

}
\references{
Kruschke, J.K. (2018). Rejecting or Accepting Parameter Values in Bayesian
Estimation. Advances in Methods and Practices in Psychological Science
1(2): 270-280.
}
