block_update <- function(x, grad) {
UseMethod("block_update")
}
#' @export
block_update.block <- function(x, grad) {
x$a <- pm(t(x$x), grad, na.rm = x$na.rm)
return(block_project(x))
}
#' @export
block_update.dual_block <- function(x, grad) {
x$alpha <- grad
return(block_project(x))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.