BigMatrixBatch <- function(states, outputs, block = 40, diag = true) {
outputs <- substitute(outputs)
check.atts(outputs)
outputs <- convert.atts(outputs)
gist <- GIST(statistics::Big_Matrix_Batch, block = block, diag = diag)
Transition(gist, outputs, states)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.