Получение длины криволинейной схватки

Мне нужна длительность схватки с момента падения температуры до момента, когда температура снова стабилизируется и не снижается и не повышается более чем на 0,1 в единицу времени.

Lines <- "
 time   Temperature
1         38.3
2         38.5
3         38.9
4         38.6
5         38.2
6         38.0
7         37.6
8         37.2
9         37.4
10        37.6
11        37.8
12        38.1
13        38.3
14        38.4
15        38.3
16        38.3
17        38.5
18        38.9
19        38.6
20        38.2
21        38.0
22        38.1
23        38.4
24        38.6
25        38.6
26        38.2
27        38.5
28        38.3
29        38.4
30        38.3
31        38.0
32        38.1
33        38.4
34        38.6
35        38.6
36        38.2
37        38.0
38        37.7
39        37.4
40        38.0
41        38.1
42        38.1
"
DF <- read.table(text = Lines, header = TRUE)

Обновлять: Кроме того, температура должна постоянно снижаться (без промежуточного повышения) и в сумме более 1 единицы за цикл. И мне нужны все события во временном ряду.