# Come è stato fatto il grafico con R (vedi).
oss = c(61,198,159,188,190,302)
pio = c(26, 53, 81, 86, 51,167)
BF=4.5; HF=3.5; Plane(0,320, 0, 180)
POINT(oss,pio,"brown")
abovex("giorni osservati"); abovey("giorni successivi di pioggia")
# la linea retta che approssima i punti e passa per (0,0)
LR0(oss,pio,0,0)
0   0.4385932  <- LR01  LR02   y=LR01+LR02*x 
f  =function(x) LR01+LR02*x
graph1(f,0,330, "grey")