R/sround.R

In baddstats/spherstat: Spatial Point Pattern Analysis, Geometry and Trigonometry for the Sphere

Defines functions sround

Documented in sround

sround <- function(x) {
	if(inherits(x, "list") || inherits(x, "data.frame")) {
		for(i in 1:length(x)) {
			x[[i]] <- ifelse(abs(x[[i]]) < 1e-7, 0, x[[i]])
		}
	}
	else {
			ifelse(abs(x) < 1e-7 , 0, x)
	}
}