R/matrixnotposdef.handler.R

In DistanceDevelopment/dsm: Density Surface Modelling of Distance Sampling Data

# 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")
  }
}