`d.lsi` not found error

[mfansler]

The AddDist function only works if LSIdist=TRUE, otherwise it throws an object 'd.lsi' not found error. The d.lsi variable should be initialized similar to the others.

redeemR/R/BuidTree.R

Lines 427 to 431 in c9de785

	if(LSIdist){
	d.lsi<-dist(object@Seurat@reductions$lsi@cell.embeddings[,dim])
	message("LSI distances added")
	}
	object@DistObjects<-new("DistObjects",jaccard=d.Jaccard, Dice=d.Dice,jaccard3W=d.3WJaccard,w_jaccard=d.w_jaccard,w_cosine=d.w_cosine,LSIdist=d.lsi)