# Handler to suppress the "matrix not positive definite" warning
#
# Internal function to suppress an annoying warnings from [`chol`][chol].
#
# See: <https://stat.ethz.ch/pipermail/r-help/2012-February/302407.html> and
# <http://romainfrancois.blog.free.fr/index.php?post/2009/05/20/Disable-specific-warnings>
#
# @param w a warning
# @return not a warning if the warning was "matrix not positive definite" or
# "the matrix is either rank-deficient or indefinite"
#
# @author David L. Miller
matrixnotposdef.handler <- function(w){
if(any(grepl("matrix not positive definite",w)) |
any(grepl("the matrix is either rank-deficient or indefinite",w))){
invokeRestart("muffleWarning")
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.