library("SpaNorm")
y <- matrix(rpois(20, 3), 4, 5)
nbUnitDeviance(y, mu = y + 0.5, phi = 0.1) [,1] [,2] [,3] [,4] [,5]
[1,] 0.08715366 0.08715366 0.05634445 0.04029267 0.04029267
[2,] 0.08715366 0.03059289 0.16700856 0.08715366 0.01636912
[3,] 0.05634445 0.02418059 0.08715366 0.04029267 0.08715366
[4,] 0.03059289 0.04029267 0.16700856 0.05634445 0.04029267