# Changes between Version 21 and Version 22 of udg/ecoms/RPackage/examples

Ignore:
Timestamp:
May 20, 2013 6:47:55 PM (9 years ago)
Comment:

--

### Legend:

Unmodified
 v21 [[Image(stations.png)]] In this particular example we are interested in the mean surface temperature from the cities of Santander and Madrid. The station codes are In this particular example we are interested in the mean surface temperature from the cities of Santander and Madrid in January. The station codes are ''"000230"'' and ''"001392"'' for Madrid and Santander respectively. We will select the period 1990-1999. .. ..$: NULL .. ..$ : chr [1:2] "000230" "001392" > plot(stationData$Dates, stationData$Data[ ,1], col = "red", type = "l") > lines(stationData$Dates, stationData$Data[ ,2], col = "green") > legend("topright", c("Madrid","Santander"), col = c("red","green"), lty=1, bg = "white") > ylimits <- c(floor(min(stationData$Data)) * .1, ceiling(max(stationData$Data) * .1)) > plot(stationData$Data[ ,1], ty='n', ylim = ylimits, axes=FALSE, ylab="degC", xlab="Year") > axis(1,at = seq(1,31*11,31), labels=c(1990:1999,"")) > axis(2, ylim=ylimits) > abline(v=seq(1,31*10,31), lty=2, col = "grey30") > for (i in 1:ncol(stationData$Data)) { +      lines(stationData$Data[ ,i] * .1, col=i) + } > city.names = c("Madrid","Santander") > legend("topright", paste(city.names, stationData$StationID), lty=1, col=1:2, bty="n") > title(main = "Mean surface Temperature January - Observations") }}}