## ------------------------------------------------
## load data and retrieve two templates
## ------------------------------------------------
library(healthyFlowData)
data(hd)
## ------------------------------------------------
## Retrieve each sample, clsuter it and store the
## clustered samples in a list
## ------------------------------------------------
cat('Clustering samples: ')
clustSamples = list()
for(i in 1:10) # read 10 samples and cluster them
{
cat(i, ' ')
sample1 = exprs(hd.flowSet[[i]])
clust1 = kmeans(sample1, centers=4, nstart=20)
cluster.labels1 = clust1$cluster
clustSample1 = ClusteredSample(labels=cluster.labels1, sample=sample1)
clustSamples = c(clustSamples, clustSample1)
}
## ------------------------------------------------
## Create two templates each from five samples
## ------------------------------------------------
template1 = create.template(clustSamples[1:5])
template2 = create.template(clustSamples[6:10])
D = dist.template(template1, template2, dist.type='Mahalanobis', unmatch.penalty=999999)
Run the code above in your browser using DataLab