sean fallon <[email protected]> [2012-09-26 23:27]:
Now one more error to sort ....
library(quantmod)
getSymbols("INFY.BO", from="2008-01-01")
data<-INFY.BO
#Add the SMA/LMA
h=data[,4] <---- this is close, not high
c=data[,5] <---- this is volume, not close
hcdif=h-c
I'd replace 3 the lines above with:
hcdif = Hi(data)-Cl(data)
data$smv=filter(data[,5],rep(1/7,7), sides=1)
data$lmv=filter(data[,5],rep(1/21,21), sides=1)
The data$smv has not error
Do you want:
datasmv=filter(Cl(data),rep(1/7,7), sides=1)
datalmv=filter(Cl(data),rep(1/21,21), sides=1)
HTH,
-rex
--
Change is inevitable, except from a vending machine.
_______________________________________________
[email protected] mailing list
https://stat.ethz.ch/mailman/listinfo/r-sig-finance
-- Subscriber-posting only. If you want to post, subscribe first.
-- Also note that this is not the r-help list where general R questions should
go.
