Comment faire un sous-ensemble du fichier xts avec l'objet date?

Question

J'ai recherché pendant un bon moment sur cette question, mais je ne trouve pas de réponse. Le défi est de trouver un moyen de sous-ensemble d'un fichier XTS par date, avec la forme:

dat <- xts(1:10, as.Date("2000-01-01")+1:10) 
date.1 <-as.Date("2000-01-05") 
dat.subset <-dat[date.1/] 

Cela ne fonctionne pas, bien sûr, et non plus des variations, telles que:

dat.subset <-dat["date.1/"] 

Comment Je sous-ensemble avec l'objet jour1 pour produire l'équivalent de:

dat.subset <-dat['2000-01-05/'] 

Answer 1

dat.subset <-dat[paste0(date.1, "/")] 

Answer 2

Cela devrait fonctionner

require(xts) 
dat <- xts(1:10, as.Date("2000-01-01")+1:10) 
date.1 <-as.Date("2000-01-05") 
dat[date.1,1] #The row name is date.1