R/ABEL1Q.R

Defines functions ABEL1Q

ABEL1Q <-
function(T,C)
{
   ALPHA <- 4 * (C[1]^2)/((1-C[1])^4) 
   ALPHA <- 1.3221*((ALPHA*T)^.2)
return(ALPHA)
}

Try the vrtest package in your browser

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

vrtest documentation built on Aug. 31, 2023, 9:08 a.m.