data(oldcol)
COL.W <- nb2listw(COL.nb, style="W")
COL.S <- nb2listw(COL.nb, style="S")
log(prod(1 - 0.5 * eigenw(COL.W)))
log(prod(1 - 0.5 * eigenw(similar.listw(COL.W))))
Det <- getMethod("det", "matrix.csr")
log(Det(asMatrixCsrIrW(asMatrixCsrListw(similar.listw(COL.W)), 0.5)))
log(prod(1 - 0.5 * eigenw(COL.S)))
log(prod(1 - 0.5 * eigenw(similar.listw(COL.S))))
log(Det(asMatrixCsrIrW(asMatrixCsrListw(similar.listw(COL.S)), 0.5)))
Run the code above in your browser using DataLab