##### https://github.com/cran/bayestestR

Tip revision:

**23ea3229abe72a5f23dcf3a4cfcd3478d744b536**authored by**Dominique Makowski**on**20 June 2019, 11:50 UTC****version 0.2.2** Tip revision:

**23ea322** convert_pd_to_p.R

```
#' Convert between Probability of Direction (pd) and p-value.
#'
#' Enables a conversion between sProbability of Direction (pd) and p-value.
#'
#' @param pd A Probability of Direction (pd) value.
#' @param p A p-value.
#' @param direction What type of p-value is requested or provided. Can be \code{"two-sided"} (default, two tailed) or \code{"one-sided"} (one tailed).
#' @param ... Arguments passed to or from other methods.
#'
#' @examples
#' pd_to_p(pd = 95)
#' pd_to_p(pd = 95, direction = "one-sided")
#' @export
pd_to_p <- function(pd, direction = "two-sided", ...) {
direction <- .get_direction(direction)
p <- (1 - pd / 100)
if (direction == 0) {
p <- 2 * p
}
p
}
#' @rdname pd_to_p
#' @export
p_to_pd <- function(p, direction = "two-sided", ...) {
direction <- .get_direction(direction)
if (direction == 0) {
p <- p / 2
}
(1 - p) * 100
}
#' @rdname pd_to_p
#' @export
convert_p_to_pd <- p_to_pd
#' @rdname pd_to_p
#' @export
convert_pd_to_p <- pd_to_p
```