demo R com haddop