# NOT RUN {
# }
# NOT RUN {
data(fingerprintMat)
data(targetMat)
data(geneMat)
data(GeneInfo)
MCF7_F = Cluster(fingerprintMat,type="data",distmeasure="tanimoto",normalize=FALSE,
method=NULL,clust="agnes",linkage="flexible",gap=FALSE,maxK=55,StopRange=FALSE)
MCF7_T = Cluster(targetMat,type="data",distmeasure="tanimoto",normalize=FALSE,
method=NULL,clust="agnes",linkage="flexible",gap=FALSE,maxK=55,StopRange=FALSE)
L=list(MCF7_F,MCF7_T)
names=c('FP','TP')
MCF7_Paths_FandT=PathwaysIter(List=L, geneExpr=geneMat, nrclusters=7, method=
c("limma", "MLP"), geneInfo=GeneInfo, geneSetSource="GOBP", topP=NULL,
topG=NULL, GENESET=NULL, sign=0.05,niter=2,fusionsLog=TRUE,
weightclust=TRUE, names =names)
MCF7_Paths_intersection=Geneset.intersect(MCF7_Paths_FandT,0.05,names=names,
seperatetables=FALSE,separatepvals=FALSE)
MCF7_DiffGenes_FandT10=DiffGenes(list(MCF7_F,MCF7_T),Selection=NULL,geneExpr=geneMat,
nrclusters=7,method="limma",sign=0.05,top=10,fusionsLog=TRUE,weightclust=TRUE,names=NULL)
MCF7_Char=CharacteristicFeatures(list(MCF7_F,MCF7_T),Selection=NULL,binData=
list(fingerprintMat,targetMat),datanames=c("FP","TP"),nrclusters=7,top=NULL,
sign=0.05,fusionsLog=TRUE,weightclust=TRUE,names=c("FP","TP"))
MCF7_Shared=SharedGenesPathsFeat(DataLimma=MCF7_DiffGenes_FandT10,
DataMLP=MCF7_Paths_intersection,DataFeat=MCF7_Char)
str(MCF7_Shared)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab