SI.stats n'est pas prévu pour fonctionner avec une grille.
dans une grille le locator 'w' n'existe généralement pas car sa valeur est évidente et égale à la taille de la cellule.
Donc quand on fait
w = db.extract(db, "w")
if (length(w) == 0)
w = rep(1, nb)
w est valué à 1 et non à la valeur de la cellule.
Cela induit une valeur totab fausse.
exemple :
a <- db.create(nx=c(10,10),dx=c(2,2))
a <- db.add(a,z1 = rep(1,100))
SI.stats(a)
#donne totab=100 au lieu de 400