https://github.com/cran/ensembleBMA
Tip revision: f80c44bfcea4b355579f751ff30ba3c239b90084 authored by Chris Fraley on 23 January 2009, 00:00:00 UTC
version 4.1.1
version 4.1.1
Tip revision: f80c44b
subset.ensembleBMAnormal.R
`[.ensembleBMAnormal` <-
function(x,d) {
d <- as.character(d)
if (any(!dateCheck(d))) stop("improperly specified dates")
m <- match( d, names(x$nIter), nomatch = 0)
if (any(!m)) stop("dates not matched in model")
x$training$table <- x$training$table[d]
x$biasCoefs <- x$biasCoefs[,,d,drop = FALSE]
x$sd <- x$sd[d]
x$weights <- x$weights[,d,drop = FALSE]
x$nIter <- x$nIter[d]
x
}