iris_dmat.r fixed