R/cant_solve.R

In jackiemauro/hurdleIV:

Defines functions cant.solve

Documented in cant.solve

#' Test if you can invert a matrix 
#'
#' @param t a matrix
#' 
#' @return True or false

cant.solve <- function(m) class(try(solve(m),silent=T))!="matrix"