title: Solve polynomial equation for x in R
body: <p>This might be insanely simple, but how can I solve the following equation for x using R? X should be a real number.</p>
  
  <pre><code>((4*x)^2+(2*x)^2+(1*x)^2+(0.5*x)^2+0.25)*((1 - 0.167)/0.167) = 1
  </code></pre>