# 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")