## initialize imageHTS object using the local submorph screen
local = tempdir()
server = system.file('submorph', package='imageHTS')
x = parseImageConf('conf/imageconf.txt', localPath=local, serverURL=server)
x = configure(x, 'conf/description.txt', 'conf/plateconf.txt', 'conf/screenlog.txt')
## get profiles
profiles = readHTS(x, type='file', filename='data/profiles.tab', format='tab')
a = profiles[match(getUnames(x, content='rluc'), profiles$uname),]
b = profiles[match(getUnames(x, content='ubc'), profiles$uname),]
## compute Z'-factor scores on some features
ft = c('med.c.t.m.majoraxis')
cat('Z\'-factor original=', zprime(a[,ft], b[,ft], 'original'), 'fixsd=', zprime(a[,ft], b[,ft], 'fixsd'), '\n')
## multivariate Z'-factor
ft = c('med.c.t.m.majoraxis', 'med.n.h.m.majoraxis', 'med.c.h.b.mean')
cat('Z\'-factor mahalanobis=', zprime(a[,ft], b[,ft], 'mahalanobis'), '\n')
Run the code above in your browser using DataLab