#' This is the function to run pathway analysis
#' @import gage
#'
#' @export
run_path_analysis<- function(lf.c, gsets, ref = ref, samp = samp, compare ){
fc.kegg.p <- gage::gage(exprs = lf.c, gsets=gsets , ref = NULL, samp = NULL,compare= compare)
return(fc.kegg.p)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.