R/qFk.R

Defines functions qFk

qFk <-
function(p, y, h){
	toInvert <- function(x, p, y, h) {
	  return(mean(pnorm((x-y)/h))-p)
	}
	res <- uniroot(toInvert, interval = c(min(y) - 10^25, max(y) + 10^25), p, y, h)$root
	return(res) 
}

Try the ROCnReg package in your browser

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

ROCnReg documentation built on June 22, 2024, 9:18 a.m.