Skip to content

Instantly share code, notes, and snippets.

@Su-Shee
Created December 27, 2013 13:41
Show Gist options
  • Select an option

  • Save Su-Shee/8147013 to your computer and use it in GitHub Desktop.

Select an option

Save Su-Shee/8147013 to your computer and use it in GitHub Desktop.
require('xts')
require('lubridate')
file <- 'tageswerte-1948-2012.csv'
data <- read.csv(file, header = TRUE, sep = ',')
timeseries <- xts(data$LUFTTEMPERATUR, as.Date(ymd(data$MESS_DATUM))
plot(timeseries, screens = 1)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment