R中使用日期值不等式的子集行

我想使用两个不同的日期变量——开始和结束（在第2列和第3列中）来子集我拥有的数据集。 它有两个部分。首先，我想排除这两个变量缺少值的行。我一直在使用这个：

!is.na(DATA[,2:3])

然后，我只需要包含“开始”值在1999年3月3日或之后且“结束”值在2002年之前的行。开始变量和结束变量都是数字，并且有一个日期类，该类以前的格式为（格式=“%d%b%Y”）

谢谢

库（ts）
library(ts)
data1<-window(data.ts, start=c(1993, 3,3), end=c(2002,12,31)) # you need to set the data as.ts

#or,

library(zoo)
data1<-data.z[as.Date(c("1993/3/3", "2002/12/31"))] # you need to set the data as .z

数据1请提供可复制的示例原始数据的开始和结束时的每个变量都是这样写的：1987年6月8日。我使用as.Date（数据$START，格式='%d%b%Y'）来转换它。现在打印为1987-06-08。所以现在我想创建一个新变量，在这里我删除任何缺少START或END值的观测值，我只想保留START>=1999年3月3日和END的观测值