# time series:
par(las = 1, mfrow = c(3, 1))
with(rhospno2, plot(date, hresp, type = "l", lwd = 0.5))
with(rhospno2, plot(date, no2, type = "l", lwd = 0.5))
with(rhospno2, plot(date, temp, type = "l", lwd = 0.5))
Run the code above in your browser using DataLab