# NOT RUN {
data(fingerprintMat)
data(targetMat)
data(geneMat)
MCF7_F = Cluster(fingerprintMat,type="data",distmeasure="tanimoto",normalize=FALSE,
method=NULL,clust="agnes",linkage="ward",gap=FALSE,maxK=55)
MCF7_T = Cluster(targetMat,type="data",distmeasure="tanimoto",normalize=FALSE,
method=NULL,clust="agnes",linkage="ward",gap=FALSE,maxK=55)
# }
# NOT RUN {
MCF7_Interactive=ChooseFeatures(Interactive=TRUE,LeadCpds=NULL,ClusterResult=MCF7_T,
ClusterColors=MCF7_F,BinData=list(fingerprintMat),Datanames=c("FP"),geneMat,
topChar = 20, topG = 20,nrclusters=7,N=1)
Lead=MCF7_Interactive$"Choice 1"$Compounds$LeadCpds
Feat=MCF7_Interactive$"Choice 1"$Characteristic$FP
BinFeaturesPlot(LeadCpds=Lead,Features=Feat,Data=fingerprintMat,OrderLab=MCF7_F,ColorLab=MCF7_F,
nrclusters=7,cols=Colors1,name=c("FP"),margins=c(5.5,3.5,0.5,5.5),plottype="new",location=NULL)
# }
Run the code above in your browser using DataLab