Remove Blending about hpir HOT 2 CLOSED

### Test Blending Functions --------------------------------------------------------------

context('blendIndexes()')

  test_that('blendIndexes() works',{

    # Basic Blend of two
    expect_is(blend_index <- blendIndexes(index_list = list(rt_index$index,
                                                            hed_index$index)),
              'hpiblend')

    # With weights
    expect_is(blend_index <- blendIndexes(index_list = list(rt_index$index,
                                                             hed_index$index),
                                          weights=c(.25, .75)),
              'hpiblend')

    # More than two
    expect_is(blend_index <- blendIndexes(index_list = list(rt_index$index,
                                                            hed_index$index,
                                                            hed_index$index)),
              'hpiblend')
  })

  test_that('blendIndexes() fails with bad arguments', {

    # Bad index
    expect_error(blend_index <- blendIndexes(index_list = list(rt_index,
                                                               hed_index$index)))

    # Bad length
    bad_index <- hed_index$index
    bad_index$index <- bad_index$index[1:80]
    expect_error(blend_index <- blendIndexes(index_list = list(rt_index$index,
                                                               bad_index)))

    # Bad Weights
    expect_error(blend_index <- blendIndexes(index_list = list(rt_index$index,
                                                               hed_index$index),
                                             weights = c(.5, .4)))

    # Bad Weights
    expect_error(blend_index <- blendIndexes(index_list = list(rt_index$index,
                                                               hed_index$index),
                                             weights = c(.5, .4, .1)))

  })

### Blending Indexes

It may be advantageous to blend ndexes. The `blendIndexes()` function will blend any number of identical length indexes (objects of class **hpiindex**).  Provide a list of indexes (of the same length), plus a set of weights that control the blending process.  If the **weights** argument is left blank, it will be blended evenly (1/n). Weights vector must be the same length as the index list.

```{r eval=TRUE, messages=FALSE, echo=TRUE, fig.width=7, fig.height=3.5}

  blend_index <- blendIndexes(index_list = list(rt_hpi$index,
                                                hed_hpi$index),
                              weights=c(.6, .4))

  plot(blend_index)
  class(plot(blend_index))