Skip to content

How to extract unique indices for time series Data?

4 messages · Christofer Bogaso, Bert Gunter, Gabor Grothendieck +1 more

Christofer Bogaso
# 
Dear all, I am into following coding:

 > library(quantmod)
 > Data1 <- get(getSymbols("TCS.NS", from = as.Date("2008-01-01"), 
return.class = "zoo"))[,4]
Warning messages:
1: In zoo(cd, order.by = index(x), ...) :
some methods for ?zoo? objects do not work if the index entries in 
?order.by? are not unique
2: In zoo(rval, index(x)[i]) :
some methods for ?zoo? objects do not work if the index entries in 
?order.by? are not unique

Here, I guess there are some duplicated dates-index. Is there any 
function available to automatically extract unique indices ???

Thanks and regards,
Bert Gunter
# 
?unique
?duplicated


-- Bert

On Sat, Jul 28, 2012 at 12:57 PM, Christofer Bogaso
<bogaso.christofer at gmail.com> wrote:

  
    

      
      
    

  


  


      

    

    

      
      

        


  

        

      Gabor Grothendieck
    

    

      
      #
    

  


  

      
On Sat, Jul 28, 2012 at 3:57 PM, Christofer Bogaso

        
<bogaso.christofer at gmail.com> wrote:

            

      
      
      
    

        
Try this:


library(quantmod)
Data1 <- Cl(getSymbols("TCS.NS", from = as.Date("2008-01-01"),
	auto.assign = FALSE))
dup <- duplicated(time(Data1), fromLast = TRUE)
z <- as.zoo(Data1[!dup])