R/betaIntEst.R

Defines functions betaIntEst

betaIntEst <-
function(locs, var, L0, L){
  
  lambda <- {(locs - L0) * (L - locs)} / var  - 1
  
  ### Estimating alpha  
  alpha <- lambda * {(locs - L0) / (L - L0)}
  
  ### Estimating beta
  beta <- lambda * {(L - locs) / (L - L0)}
  
  return (list(alpha.init = alpha, beta.init = beta))  
}

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.