summary(melbmaxtemp)
if (FALSE) {
melb <- data.frame(today = melbmaxtemp[-1],
yesterday = melbmaxtemp[-length(melbmaxtemp)])
plot(today ~ yesterday, data = melb,
xlab = "Yesterday's Max Temperature",
ylab = "Today's Max Temperature", cex = 1.4, type = "n")
points(today ~ yesterday, melb, pch = 0, cex = 0.50, col = "blue")
abline(a = 0, b = 1, lty = 3)
}
Run the code above in your browser using DataLab