Create rsi.r

Calculates the relative strength index.  Requires ema.r