data(weather_multi_sites)
weather_multi_sites[[1]][[1]]$timestamp <- paste(weather_multi_sites[[1]][[1]]$YYYY,
weather_multi_sites[[1]][[1]]$MM, weather_multi_sites[[1]][[1]]$DD, sep=" ")
weather_multi_sites[[1]][[1]]$timestamp <-
as.POSIXct(strptime(weather_multi_sites[[1]][[1]]$timestamp,
format="%Y %m %d", tz="GMT"))
plot(weather_multi_sites[[1]][[1]]$timestamp[1:1000],
weather_multi_sites[[1]][[1]]$Qobs[1:1000], type="l",
xlab="Time [d]", ylab=expression(paste("Temperature [degrees]")))
Run the code above in your browser using DataLab