# temperatura registrata ogni 0.5 sec da un termometro estratto da # un recipiente di acqua calda temper <- c( 86.1,85.4,84.6,83.4,82.0,80.5,79.0,77.6,76.3,75.0,73.8,72.6,71.6,70.6,69.7, 68.8,68.0,67.1,66.4,65.7,65.0,64.4,63.8,63.1,62.6,62.0,61.5,61.0,60.5,60.1, 59.6,59.2,58.7,58.3,57.9,57.5,57.2,56.8,56.4,56.1,55.7,55.4,55.0,54.7,54.4, 54.1,53.8,53.5,53.2,52.9,52.6,52.3,52.1,51.8,51.5,51.3,51.0,50.8,50.5,50.3, 50.0,49.8,49.6,49.4,49.2,48.9,48.7,48.5,48.3,48.1,47.9,47.7,47.5,47.3,47.2, 47.0,46.8,46.6,46.5,46.3,46.1,46.0,45.8,45.6,45.5,45.3,45.2,45.0,44.9,44.7, 44.6,44.4,44.3,44.2,44.0,43.9,43.8,43.6,43.5,43.4,43.3,43.1,43.0,42.9,42.8, 42.6,42.5,42.4,42.3,42.2,42.1,42.0,41.9,41.7,41.6,41.5,41.4,41.3,41.2,41.1, 41.0,40.9,40.8,40.7,40.6,40.5,40.4,40.3,40.2,40.1,40.0,39.9,39.8,39.7,39.6, 39.6,39.5,39.4,39.3,39.2,39.1,39.0,38.9,38.9,38.8,38.7,38.6,38.5,38.5,38.4, 38.3,38.2,38.1,38.1,38.0,37.9,37.8,37.8,37.7,37.6,37.6,37.5,37.4,37.3,37.3, 37.2,37.1,37.1,37.0,36.9,36.9,36.8,36.7,36.7,36.6,36.6,36.5,36.4,36.4,36.3, 36.2,36.2,36.1,36.1,36.0,35.9,35.9,35.8,35.8,35.7,35.6,35.6,35.5,35.5,35.4, 35.4,35.3,35.2,35.2,35.1,35.1,35.0,35.0,34.9,34.9,34.8,34.8,34.7,34.7,34.6, 34.6,34.5,34.5,34.4,34.4,34.3,34.3,34.2,34.2,34.1,34.1,34.0,34.0,33.9,33.9, 33.8,33.8,33.7,33.7,33.7,33.6,33.6,33.5,33.5,33.4,33.4,33.4,33.3,33.3,33.2, 33.2,33.1,33.1,33.1,33.0,33.0,32.9,32.9,32.9,32.8,32.8,32.8,32.7,32.7,32.6, 32.6,32.6,32.5,32.5,32.5,32.4,32.4,32.4,32.3,32.3,32.2,32.2,32.2,32.1,32.1, 32.1,32.0,32.0,32.0,31.9,31.9,31.9,31.8,31.8,31.8,31.7,31.7,31.7,31.6,31.6, 31.6,31.5,31.5,31.5,31.5,31.4,31.4,31.4,31.3,31.3,31.3,31.2,31.2,31.2,31.1, 31.1,31.1,31.1,31.0,31.0,31.0,30.9,30.9,30.9,30.8,30.8,30.8,30.8,30.7,30.7, 30.7,30.7,30.6,30.6,30.6,30.5,30.5,30.5,30.5,30.4,30.4,30.4,30.4,30.3,30.3, 30.3,30.3,30.2,30.2,30.2,30.2,30.1,30.1,30.1,30.1,30.0,30.0,30.0,30.0,29.9, 29.9,29.9,29.9,29.8,29.8,29.8,29.8,29.7,29.7,29.7,29.7,29.7,29.6,29.6,29.6, 29.6,29.5,29.5,29.5,29.5,29.4,29.4,29.4,29.4,29.4,29.3,29.3,29.3,29.3,29.3, 29.2,29.2,29.2,29.2,29.1) dt <- 0.5 # tempo tra un rilevamento e l'altro n <- length(temper) # numero delle temperature rilevate t <- 0:(n-1)*dt # gli istanti di rilevamento # vedi che le temperature decrescono circa da 86 a 29 plot(t,temper,pch=".",ylim=c(25,90) ) lines(t,temper, lwd=2 ) # congiungo i punti con una linea spessa due pixel abline(v=seq(0,200,25), h=seq(0,90,5), col="blue",lty=3) # tracciata la griglia traccio anche due assi, in rosso abline(v=0,h=25,col="red")