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 <- PDMBySvmAccuracy(x, unames=getUnames(x, plate=1, row=2:3, col=3), selectedCellFtrs=selectedCellFtrs, cross=5, verbose=FALSE, cost=1, gamma=2^-5, kernel='radial')
Run the code above in your browser using DataLab