minor bug 

git-svn-id: svn://svn.r-forge.r-project.org/svnroot/correg@453 edb9625f-4e0d-4859-8d74-9fd3b1da38cb
replace 0 value in B (obtained by Poisson law) by 1 to keep the desired complexity

git-svn-id: svn://svn.r-forge.r-project.org/svnroot/correg@454 edb9625f-4e0d-4859-8d74-9fd3b1da38cb