R/cutoff.asymptotic.R

In L2DensityGoFtest: Density Goodness-of-Fit Test

Defines functions cutoff.asymptotic

Documented in cutoff.asymptotic

cutoff.asymptotic<-function( dist,   p1, p2, sig.lev )
{
  RK<-  3/5 #For Epanechnikov kernel
  asymptotic.cut.off<- sqrt(2*RK* (integrate(NDistDens, lower=-Inf, upper=Inf, dist=dist, p1=p1, p2=p2)$value)^2) *qnorm(1-sig.lev)
  asymptotic.cut.off
}

Try the L2DensityGoFtest package in your browser