powered by
ipd(mat)
TRUE
FALSE
data(mtoys) stopifnot(ipd(crossprod(matrix(rnorm(30),10)))) stopifnot(ipd(M(toy_mhp)))
Run the code above in your browser using DataLab