https://github.com/cran/ensembleBMA
Tip revision: 31c77a04d59ebb1f2a1814978266ec826e3dc3b2 authored by Chris Fraley on 13 November 2021, 04:30:11 UTC
version 5.1.7
version 5.1.7
Tip revision: 31c77a0
controlBMAgamma0.R
controlBMAgamma0 <-
function(maxIter = Inf, tol = sqrt(.Machine$double.eps), power = (1/3),
rainobs = 10, init = list(varCoefs = NULL, weights = NULL),
optim.control = list(ndeps = rep(sqrt(.Machine$double.eps),2)))
{
#
# copyright 2006-present, University of Washington. All rights reserved.
# for terms of use, see the LICENSE file
#
if (is.infinite(maxIter) && maxIter > 0) maxIter <- .Machine$integer.max
list(maxIter = maxIter, tol = tol, power = power, rainobs = rainobs,
init = init, optim.control = optim.control)
}