R/pasterisk.R

In sachserf/sf: Collection of miscellanous functions

#' Classify significance levels
#' Print asterisk
#' @param p.value Numeric vector. Specify vector to classify.
#'
#' @author Frederik Sachser
#' @export
pasterisk <- function(p.value) {
  signlvl <- ifelse(p.value >= 0.05, "n.s.", ifelse(p.value < 0.05 & p.value >= 0.01, "*", ifelse(p.value < 0.01 & p.value >= 0.001, "**", ifelse(p.value < 0.001, "***", NA))))
  return(signlvl)
}