An R Package for W-NOMINATE