title: removing outliers in a vector
body: <p>The aim is to remove outliers in a vector.
  x = datasets::islands ($area)</p>
  <pre><code>x =    12    13    13    13    14    14    15    15    16    16    16    19    21    23    25    26    29    29    30    30
         32    33    36    40    42    43    43    44    49    58    73    82    82    84    89   183   184   227   280   306
         840  2968  3745  5500  6795  9390 11506 16988
  </code></pre>
  <p>so far by using</p>
  <pre><code>x_rm_out &lt;- x[!x%in% boxplot.stats
                      (x, coef = .05, do.conf = TRUE, do.out = TRUE)$out]
  </code></pre>
  <p>Result</p>
  <pre><code> [1]  12  13  13  13  14  14  15  15  16  16  16  19  21  23  25  26  29  29  30  30  32  33  36  40  42  43  43  44  49  58  73
  [32]  82  82  84  89 183 184
  </code></pre>
  <p>Is there a way to remove 183 &amp; 184 from vector (x)?</p>