data(cnps)
data(eps)
set.seed(3)
rcells1 = sample(colnames(cnps), 120)
rcells2 = setdiff(colnames(eps), rcells1)
outc = clusterCells(cnps[apply(cnps, 1, var)>0, rcells1])
outc = assignCellsToClusters(outc, eps[,rcells2])
Run the code above in your browser using DataLab