mdsPlotRShiny: Analysis results for multiple pairs: visualization outputs

Description Usage Arguments Value Examples

View source: R/mdsPlotRShiny.R

Description

Plot mds plot (function only for Rshiny)

Usage

1
2
mdsPlotRShiny(mcmc.merge.list, dataset.names, select.pathway.list, ARS_pathway,
  hashtb = NULL, pathways = NULL, optK = NULL)

Arguments

mcmc.merge.list:

a list of merged MCMC output matrices.

dataset.names:

a vector of dataset names.

select.pathway.list:

a list of selected pathways (containing gene components).

ARS_pathway:

a list of two data frames: pathway specific ARS values and their permuted p-value (pathway on rows, column being ARS value or the p-values).

output:

five options: "clustPathway" (pathway clustering),"mdsModel"(model MDS plot),"clustModel" (model clustering output), "genePM" (generating heatmap of gene posterior mean),"keggView" (generating kegg pathway topology, human KEGG only). For details, please refer to manuscript. cannot be empty.

hashtb:

hash table for text mining.

pathways:

complete pathway names for text mining.

keggViewSelect:

which two datasets to view in KEGG topology.

optK:

Optimal number of clusters based on clustering diagnostic results. For "clustPathway" output only.

kegg_pathname:

KEGG pathway name list. For "keggView" only.

hs_gene_id:

Human sapiens gene id. For "keggView" only.

Value

stored output in created folders.

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
## Not run: 
#mcmc.merge.list from the merge step
#select.pathway.list from the pathSelect step
#ARS_pathway from the multiARS step
data(hashtb) #include hashtb & pathways
dataset.names <- c("hb","hs","ht","mb","ms","mt")
library(KEGG.db)
kegg_pathname <- unlist(as.list(KEGGPATHID2NAME))
library("org.Hs.eg.db")
hs_gene_id <- unlist(mget(x=rownames(mcmc.merge.list[[1]]),
envir=org.Hs.egALIAS2EG))
multiOutput(mcmc.merge.list,dataset.names,select.pathway.list,
ARS_pathway, output=c("clustPathway","mdsModel","clustModel","genePM","keggView"),
hashtb=hashtb,pathways=pathways,keggViewSelect = c(1,4),optK=7)

## End(Not run)

matianzhou/CAMO documentation built on May 21, 2019, 10:12 a.m.