#========== Check whether the delta is too large when Richardson Extrapolation is used ==========#
#========== Multiplicative Joint Modeling ==========#
CheckDeltaMult <- function (theta, delta) {
Ysigma <- theta$Ysigma
check1 <- (Ysigma - 2 * delta > 0)
Bsigma <- theta$Bsigma
check2 <- (Bsigma - 2 * delta > 0)
return(all(c(check1, check2)))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.