Как узнать, в какое время скорость равна определенному значению?

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 в течение нескольких дней.

Я хочу знать, в какой день скорость1 будет равна 40.

Одна возможность сделать то, что мне нужно, - это плотно заполнить rate1 и вычесть мое целевое значение (40). Чем ближе точка к нулю, тем ближе она к целевому значению. И включить небольшой "шумовой" буфер, принимающий все точки в некотором диапазоне от нуля.

Как мне оценить значение времен для rate1, равное 40 в R? Также, пожалуйста, предложите, если есть более подходящий метод в R, чем то, что я использую? Все предложения приветствуются.