Buenos dias, 
Tengo un excel con 3000 observaciones y 9 variables del que quiero guardar en un vector el valor  "interarrivals" cuando la variable "time" este entre las 7 y las 9 de la mañana, adjunto pantallazo de la estructura de la tabla
El codigo que habia hecho era
library(readxl)
M1 <- read_excel("M1.xlsx",
                  col_types = c("numeric", "numeric", "numeric", 
                                "numeric", "numeric", "numeric", 
                                "numeric", "numeric", "date"))
a<-c()
tiempo_llegadas<-M1[1:3694,9]
tiempo_entre_llegadas<-M1[1:3694,8]
for (i in 1:3694) {
  if (7<=tiempo_llegadas[i,1]<9){a<-c(a,tiempo_entre_llegadas[i,1])}
}
Pero me da error, ¿Podeis echarme una mano?
Gracias,