search for: taumin

...Y, s.e., df.se, corrs, prior, ...) 1: hblm(Diff ~ 1, s = SE) > > hblm function(formula, s.e., df.se = Inf, corrs = F, prior = NULL, fast.calc = F, ...) { # hblm() # main program to create hblm object call <- match.call() call.ab <- abbrev.hblm.call(call) taumin <- (sum(1/s.e.^2))^-0.5 if(is.null(prior$error)) { prior$error$df <- 1 prior$error$sd <- taumin } s.e..old <- s.e. if(max(s.e.) == Inf) s.e.[s.e. == Inf] <- taumin * 10000 wts <<- s.e.^(-2)...