https://github.com/cran/ensembleBMA
Tip revision: 3aac4ce4becbb5ce358538ac9e6b29e0e94fc381 authored by Chris Fraley on 15 December 2009, 00:00:00 UTC
version 4.4
version 4.4
Tip revision: 3aac4ce
modelParameters.ensembleBMAgamma0.R
`modelParameters.ensembleBMAgamma0` <-
function(fit, dates = NULL, ...)
{
dateTable <- dimnames(fit$weights)[[2]]
if (is.null(dates)) dates <- dateTable
dates <- sort(unique(as.character(dates)))
if (length(dates) > length(dateTable))
stop("parameters not available for some dates")
I <- match( dates, dateTable, nomatch=0)
if (any(!I) || !length(I))
stop("parameters not available for some dates")
list(weights = fit$weights[,I],
prob0coefs = fit$prob0coefs[,,I],
biasCoefs = fit$biasCoefs[,,I],
varCoefs = fit$varCoefs[,I],
power = fit$power,
model = "gamma0")
}