r scripts wodc