R/getSpecific.R

In isglobal-brge/bayesOmic: Bayesian modeling for omic data analysis

#' Get specific components 
#' 
#' @param x
#' @param group 
#' 
#' 
#' @export

getSpecific <- function(x, group){
  if (!group%in%x$names.group)
    stop("select a correct group name")
  ss <- x$res.summary$lambda[[group]]
  ans <- ss[ss[,"sig"]!=0,]
  if (nrow(ans)==0){
    cat("No Specific components are significant. \n")
    ans <- NULL
  }
  ans
}