R/MLn1.R

"MLn1" <-
function(yr,iv,tp){
beta  <- tp$beta; tn <- tp$tn
# location
  th <- mean(yr)
# scale
  if (iv==1) v <- Scalen(yr-th,tn-1,beta)
list(th1=th,v1=v)}

Try the RobustAFT package in your browser

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

RobustAFT documentation built on Aug. 21, 2023, 5:13 p.m.