R/HomoFun.R

HomoFun <-
function(x1, x2, B, conf=0.95) {
  est <- HomoEstFun(x1, x2)
  se <- BootstrapFunMa(x1, x2, B, FunName=HomoEstFun)
  CI <- logCI(x1, x2, est, se, conf)
  out <- matrix(c(est, se, CI), nrow = 1)
  rownames(out) <- c("Homogeneous")
  colnames(out) <- c("Estimator", "Est_s.e.",
                     paste(conf*100, "% Lower"), paste(conf*100, "% Upper"))
  return(out)
}

Try the SpadeR package in your browser

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

SpadeR documentation built on May 2, 2019, 3:59 p.m.