Nothing
#' @noRd
func1 <- function(b,rl1,rl,delta,ni,maxiter)
{
cb <- abs(rl1-rl)
ca <- 0
ca <- sum(delta*delta)
b <- b+delta
ni <- ni+1
result <- list(ca=ca,cb=cb,b=b,ni=ni)
}
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.