R/SauvolaThreshold.R

In CRImage: CRImage a package to classify cells and calculate tumour cellularity

Defines functions SauvolaThreshold

Documented in SauvolaThreshold

SauvolaThreshold <-
function(allGreyValues){
	m=mean(allGreyValues)
	s=sd(allGreyValues)
	k=0.25
	R=0.5
	t=m*(1+k*((s/R)-1))
	t
}

Try the CRImage package in your browser