library('phenoDist')
## load the imageHTS object
load(system.file('kimorph', 'kimorph.rda', package='phenoDist'))
x@localPath <- file.path(tempdir(), 'kimorph')
## calculate pair-wise svm distance matrix
load(system.file('kimorph', 'selectedFtrs.rda', package='phenoDist'))
pdm <- PDMByWellAvg(profiles=summarizeWells(x, getUnames(x,plate=1, row=2:3, col=3), 'conf/featurepar.txt'), selectedWellFtrs, transformMethod='scale', distMethod='euclidean')
pdm
Run the code above in your browser using DataLab