title: Error when trying to raise a discrete random variable to a negative power
body: <pre><code>library(discreteRV)
  
  X &lt;- RV(c(0, 9), c(1/2, 1/2))
  X ** (-2)
  </code></pre>
  
  <p>whenever I try to run this, I get the following error:</p>
  
  <pre><code>Error in RV(as.numeric(outcomes(X))^Y, probs(X), fractions = attr(X, "fractions"),  : 
    More probabilities/odds than outcomes provided
  </code></pre>
  
  <p><a href="https://github.com/erichare/discreteRV" rel="nofollow noreferrer">Package is from GitHub: <strong>discreteRV</strong></a></p>