两个日期之间的子集

Question

PAR_SENS <- read.csv("PAR_FULL YEAR.csv")
attach(PAR_SENS)


#Eliminate 0s
View(PAR_SENS)
PAR_DAY <- filter(PAR_SENS,  Calibrated > 0)
View(PAR_DAY)
class(PAR_DAY$Date)
#make R read Date as a date
PAR_DAY$Date <- as.Date(PAR_DAY$Date)
class(PAR_DAY$Date)

#P.ONK AND L.INS CALC EXP JAN 2016

#Sort by Flumes
#New data.frame for each flume for just Jan-Mar 2016
F1 <- filter(PAR_DAY, Flume == 1)
View(F1)
class(F1$Date)

以上是我想要做的一些分析的代码。我有一个标有Date的列和一个标有Calibrated的列。每Calibrated Date有多个值，差不多有一年的日期值。我已从我的数据中滤除了0，并确保Date被r读取为date。现在，我想通过使用两个日期之间的数据，按Calibrate过滤掉Date的数据。我试图为每个日期（D1和D2）创建变量并使用子集函数，例如：

 D1 <- as.Date(F1$Date, 04/01/2016)
 D2 <- as.Date(F1$Date, 03/03/2016)
 F1_JM <- subset(F1, D1:D1)

然而，这返回了一个错误，说"In D1:D2 : numerical expression has 6506 elements: only the first used"。我不确定一个更好的方法来做到这一点。有人可以帮忙吗？我对R编码比较新。我可能会忘记一些简单的语法。