获得弯曲回合的长度

Question

从温度下降到温度再次稳定的那一刻，我需要回合的长度，并且每个时间单位不会减少或上升超过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个单位。我需要时间序列中的所有事件。