R/sd.cuts.R

Defines functions `sdCuts`

`sdCuts` <-
function(x,n = 5,params = NA) {
	balance <- function (x) x - mean(x)
	grads = balance(1:(n - 1))
	res = mean(x)+grads*sd(x) 
	names(res) = paste(grads,"SD",sep="") 
	res }

Try the GISTools package in your browser

Any scripts or data that you put into this service are public.

GISTools documentation built on May 6, 2019, 1:09 a.m.