R/fun.alpha.R

Defines functions fun.alpha

fun.alpha <-
function(a, L0, L){
  x <- (a[1] - L0) / (L - L0)
  if(a[2] == 0)
    a[2] <- 0.00000001
  y <- a[2] / {(L-L0)^2}
  alpha.est<- x * (((x * (1 - x)) / y) - 1)
}

Try the breakpoint package in your browser

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

breakpoint documentation built on May 29, 2017, 11 a.m.