Comments on FOSS Trading: David Varadi's RSI(2) alternative

jipibelanger, The result should always be an xts ...

2010-02-17T21:13:23.737-06:00

jipibelanger,

The result should always be an xts object. I'm not sure how you're getting a "list", but the high / low data prior to 1980 is poor for most Yahoo data.

Hello Joshua, Is there a reason why the result is ...

2010-02-17T16:05:42.079-06:00

Hello Joshua,
Is there a reason why the result is sometimes of typeof "list" instead of "doubles" ?

When I load my datas from 1970 with quantmod the result is typeof "list"; and when I start from 1980 the result is typeof "double".

Thank you.

The solution I posted above is better. You just h...

2009-07-24T16:56:00.679-05:00

The solution I posted above is better. You just have to change the "n" for the RSI function to "14" and the upper and lower bounds in the ifelse() statements to 80 and 20.

Thanks Actually I am testing RSI(price,14), so th...

2009-07-24T15:50:08.453-05:00

Thanks
Actually I am testing RSI(price,14), so the indicator may be under 20 or above 80 for a time and I use FOR loop instead of ifelse and lag but FOR is slow in R.

Is there any better solution?

Hi Bear, You need to use a lagged value of RSI in...

2009-07-24T13:09:55.203-05:00

Hi Bear,

You need to use a lagged value of RSI in addition to the current value. The code below shows how to do it.

library(TTR)
price <- .xts(20*cumprod(1+rnorm(50)/100),Sys.Date()-50:1)
rsi <- RSI(price,2)
rsiLag <- lag(rsi)
sig <- rep(0,50)
sig <- ifelse(rsiLag > 90 & rsi < 90, -1, sig)
sig <- ifelse(rsiLag < 10 & rsi > 10, 1, sig)

So sig will be '1' if yesterday's RSI (rsiLag) is less than 10 and today's RSI (rsi) is greater than 10.

Hope that helps,
Josh

hello josh, If I want to sell the stock when the R...

2009-07-23T16:57:04.533-05:00

hello josh,
If I want to sell the stock when the RSI retereat from the 90 or buy it when the RSI above 10 again how can I modify the code?