如何查找什么时间费率等于某个值？

Question

我有以下数据集：

require(xts)
days<-seq(as.Date("2016-05-01", format="%Y-%m-%d"), as.Date("2016-07-31", format="%Y-%m-%d" ), by= 1)
df.days<-xts(x = data.frame(Empty=rep(NA, length(days))), order.by=days)
df.norm <- rnorm(10000, 40, 5)
df.norm <- df.norm[df.norm > 30 & df.norm < 50]
SAMPLE <-sample(df.norm, length(df.days[.indexwday(df.days)==1]), replace=FALSE) 
df.weeks<-xts(SAMPLE, order.by = index(df.days[.indexwday(df.days)==1]))
df.data<-merge.xts(df.weeks,df.days)
df.data<-df.data[,1]
colnames(df.data)[1]<-"rate1"
df.data<-as.data.frame(df.data)
rownames(df.data)<-NULL
df.data<-data.frame(times=rownames(df.data), coredata(df.data))

rate1是一个与时间相关的函数，在几天内趋于接近40值。

  

我想知道rate1将在什么日期等于40。

我需要的一种可能性是密集填充rate1并减去我的目标值（40）。点越接近零，它越接近目标值。并包括一个小小的噪音＆＃39;缓冲区，接受零范围内的所有点。

我如何估计在Rate 1中rate1的时间值等于40？还请建议R中是否有比我使用的方法更合适的方法？欢迎提出所有建议。