R/filterGauss.R

# Gaussian density filter from Mapper paper

filterGauss <-
function(X,epsilon=1) {
	
	dX <- as.matrix(dist(X))
	
	x <- rowSums(exp(-(dX^2)/epsilon))
	
	return(x)
	
}
arnhew99/mappeR documentation built on May 10, 2019, 1:45 p.m.