R and ADMB code for dealing with pesky zeros