library('phenoDist')
## load the imageHTS object
load(system.file('kimorph', 'kimorph.rda', package='phenoDist'))
x@localPath <- file.path(tempdir(), 'kimorph')
## load sample phenotypic distance matrix
load(system.file('kimorph', 'svmAccPDM_Pl1.rda', package='phenoDist'))
## phenotypic clustering
phenoCluster <- clusterDist(x, distMatrix=svmAccPDM_Pl1, clusterFun='hclust', method='ward')
## Not run:
# require('GOstats')
# GOEnrich <- enrichAnalysis(x, cl=cutree(phenoCluster, k=5), terms='GO', annotation='org.Hs.eg.db', pvalueCutoff=0.01, testDirection='over', ontology='BP', conditional=TRUE)
# ## End(Not run)
Run the code above in your browser using DataLab