R/Effect.R

In statwangz/SuSiE: A simple new approach to variable selection in regression, with application to genetic fine-mapping

#' Effect
#'
#' @param p the PIP of the SNP x.
#'
#' @return the group of the variable.
#' @export
Effect <- function(p) {
  if (p >= 0.8) {
    return(3)
  } else if (p < 0.8 & p >= 0.01) {
    return(2)
  } else {
    return(1)
  }
}