Is diagonal.
isDiag(object) ## S4 method for signature 'double_array_parameter' isDiag(object)
object
generic object
logical value