R/rdiscunif.R

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

Defines functions rdiscunif

Documented in rdiscunif

rdiscunif <- function(n, min, max, steps=1) {
	m <- (max-min)/steps
	stopifnot(floor(m)==m && min <= max)
	output1 <- runif(n, 0, 1)
	output <- (ceiling(output1*(m+1))-1)*steps+min
	output
}