Nothing
`[.ensembleBMAgamma0` <-
function(x,d) {
#
# copyright 2006-present, University of Washington. All rights reserved.
# for terms of use, see the LICENSE file
#
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$prob0coefs <- x$prob0coefs[,,d,drop = FALSE]
x$biasCoefs <- x$biasCoefs[,,d,drop = FALSE]
x$varCoefs <- x$varCoefs[,d,drop = FALSE]
x$weights <- x$weights[,d,drop = FALSE]
x$nIter <- x$nIter[d]
attr(x,"call") <- list(attr(x,"call"), match.call())
x
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.