I frequently get the following error when running celltree:

Error in apply(dists[backbone, -backbone], 2, which.min) : 
  dim(X) must have a positive length

This can be fixed by adding a drop=F such that:

Error in apply(dists[backbone, -backbone, drop=F], 2, which.min) : 
  dim(X) must have a positive length