Update rsi.r