#' Cepa to shiny
#'
#' @param z_vec
#' @param pathway.name
#' @param pmap.path
#' @param type
#' @param thresh
#' @param cen
#' @param cen.name
#' @param iter
#'
#' @return CEPA
#' @export
#'
#' @examples
shiny.get.cepa <- function(z_vec, pathway.name = NULL, pmap.path="extdata", type = "ora",
thresh = 1.96, #required arguments
cen = "betweenness",
cen.name = sapply(cen, function(x) ifelse(mode(x) == "name", deparse(x), x)),
iter = 1000){
if(type == "ora"){
z_vec <- z_vec[!is.na(z_vec)]
cepa.result.all <- cepa.ora.metab.all(names(z_vec[abs(z_vec) > thresh]), names(z_vec), pmap.path, pathway.name, cen, cen.name, iter)
}else{
cepa.result.all <- cepa.univariate.metab.all(z_vec, pmap.path, pathway.name, cen, cen.name, iter)
}
return(data.frame(pathway=names(cepa.result.all), p.value=sapply(cepa.result.all, function(x) x[[1]]$p.value)))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.