R/Phansalkar_threshold.R

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

Defines functions Phansalkar_threshold

Documented in Phansalkar_threshold

Phansalkar_threshold <-
function(allGreyValues){
	m=mean(allGreyValues)
	s=sd(allGreyValues)
	q=10
	p=2
	k=0.25
	R=0.5
	t=m*(1+p*exp(-q*m)+k*((s/R)-1))
	t
}

Try the CRImage package in your browser