#Arbor Day
gy <- c(92,91,90,89,88,87,86,81,79,78,77,76,72,71,70,69,68,67,92,86,70,79,78,77,76,70,67,11,10,9,8,1,9,8,92,86,80,69,68,67,68,69,71,5,4,3,2,10,91,87,80,80,70,69,71,67,76,4,3,2,1,90,89,88,76,69,67,69,70,24,14,13,12,11,79,78,77,71,67,80,77,76,19,21,38,89,88,87,69,86,71,82,67,15,39,90,86,71,69,76,67,71,67,12,90,86,70,87,68,81,76,77,6,89,88,87,77,82,78,77,25,1,82,81,68,69,67,86,76,25,5,90,89,88,86,79,71,78,21,15,90,79,78,68,87,67,26,20,22,90,80,70,80,77,77,26,16,29,89,88,87,71,68,86,22,13,33,71,70,69,88,78,78,21,7,36,92,91,81,76,87,77,17,2,40,90,82,76,78,79,80,14,6,91,90,89,69,78,86,8,16,90,86,82,79,79,27,1,14,81,80,79,88,79,23,3,18,72,71,70,80,81,22,7,23,82,81,80,79,87,18,17,24,76,90,89,82,25,15,15,30,91,76,81,82,26,9,19,34,89,82,86,86,28,2,24,37,89,87,80,88,24,86,25,41,88,81,79,27,23,4,31,82,82,86,29,19,8,35,87,88,86,29,16,86,38,90,88,87,25,10,16,42,90,88,89,25,3,20,89,90,28,20,87,25,90,86,87,17,5,26,91,26,86,11,9,32,90,88,86,4,87,36,27,88,26,88,17,39,89,88,26,6,21,43,90,88,18,10,26,43,90,27,12,88,27,50,89,27,5,18,33,86,28,13,89,22,37,28,6,7,27,40,14,90,11,28,44,7,86,89,34,44,90,12,19,38,45,91,90,23,41,86,90,20,86,50,87,13,24,29,45,86,91,87,87,46,89,30,86,48,89,88,86,49,88,88,51,87,31,88,46,88,89,88,47,87,90,49,49,87,90,48,49,87,89,50,50,50,50,88,49,52,50,51,89,89,51,89,87,89,90,87,90,88,88,91,86,88,51,86,87,91,88,86,89,89,86,90,87,88,90,89,89,88,90,88,86,88,88,88,86,89,90,89,90,90,89,90,89,90,90)
gx <- c(2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,3,3,3,4,4,4,4,4,13,45,45,45,45,46,52,52,4,4,4,5,5,5,7,13,20,46,46,46,46,52,5,5,5,6,7,7,13,14,34,51,51,51,51,6,6,6,7,8,8,14,18,41,52,52,52,52,7,7,7,8,9,13,18,20,43,55,60,8,8,8,9,13,14,20,24,44,60,9,9,9,10,14,15,24,26,45,10,10,10,13,15,16,26,34,46,11,11,11,14,16,18,28,37,50,12,12,12,15,17,20,30,41,51,13,13,13,16,18,22,34,42,52,14,14,14,17,20,23,37,43,55,15,15,15,18,22,24,41,44,57,16,16,16,19,23,26,42,45,58,17,17,17,20,24,28,43,46,59,18,18,18,21,26,30,44,50,60,19,19,19,22,28,34,45,51,20,20,20,23,30,37,46,52,21,21,21,24,32,41,47,53,22,22,22,26,33,42,50,54,23,23,23,28,34,43,51,55,24,24,24,30,37,44,52,56,25,26,26,32,38,45,53,57,26,27,28,33,40,46,54,58,27,28,29,34,41,47,55,59,28,29,30,37,42,49,56,60,29,30,31,38,43,50,57,30,31,32,40,44,51,58,31,32,33,41,45,52,59,32,33,34,42,46,53,60,33,34,37,43,47,54,34,37,38,44,49,55,36,38,40,45,50,56,37,39,41,46,51,57,38,40,42,47,52,58,39,41,43,49,53,59,40,42,44,50,54,60,41,43,45,51,55,61,42,44,46,52,56,66,43,45,47,53,57,69,44,46,49,54,58,45,47,50,55,59,46,49,51,56,60,47,50,52,57,61,48,51,53,58,62,49,52,54,59,66,50,53,55,60,69,51,54,56,61,87,52,55,57,62,53,56,58,63,54,57,59,65,55,58,60,66,56,59,61,69,57,60,62,76,58,61,63,80,59,62,64,87,60,63,65,61,64,66,62,65,67,63,66,69,64,67,71,65,69,74,66,71,76,67,72,80,68,73,82,69,74,83,71,76,84,72,78,87,73,80,74,82,76,83,77,84,78,85,79,87,80,82,83,84,85,87,88,89,90)
plot(gx, gy, type="p", ann=F, xlim=c(0, 100), ylim=c(0, 90), col="darkolivegreen4", pch=15, cex=2.2, bg="transparent")
dr2y <- c(75,74,73,72,71,70,69,68,67,66,65,64,63,62,61,60,59,58,57,56,55,54,53,52,51,50,49,48,47,46,45,44,43,42,41,40,39,38,37,36,35,34,33,32,31,30,29,28,27,26,25,24,23,22,21,20,72,71,70,69,68,67,66,65,64,63,62,61,60,59,58,57,56,55,54,53,52,51,50,49,48,47,46,45,44,43,42,41,40,39,38,37,36,35,34,33,32,31,30,29,28,27,26,25,24,23,22,21,20,71,70,69,68,67,66,65,64,63,62,61,60,59,58,57,56,55,54,53,52,51,50,49,48,47,46,45,44,43,42,41,40,39,38,37,36,35,34,33,32,31,30,29,28,27,26,25,24,23,21,20,71,70,69,66,65,64,63,62,61,60,59,58,57,56,55,54,53,52,51,50,49,48,47,46,45,44,43,42,41,40,39,38,37,36,35,34,33,32,31,30,29,28,27,26,24,21,20,65,64,63,62,61,60,59,58,57,56,55,54,53,52,51,49,48,47,46,45,44,42,41,40,38,37,36,35,34,33,32,31,30,29,28,26,24,21,64,63,61,60,59,57,56,55,54,53,52,51,49,48,47,46,45,44,38,37,36,35,34,33,32,31,29,28,26,24,21,63,61,60,59,57,56,55,54,53,52,51,49,48,47,46,45,44,36,35,32,31,28,26,24,56,55,54,53,52,51,49,47,46,44,36,35,32,31,28,26,24,55,54,53,51,49,47,46,44,36,35,31,28,26,24,55,54,53,51,49,47,46,44,36,35,54,53,49,44,35,54,53,49,54,53,54,53,54,53,54,53,54)
dr2x <- c(54,54,54,54,40,40,40,41,41,42,42,43,36,36,37,38,39,41,38,38,40,36,36,38,40,49,49,49,49,23,23,23,24,24,25,18,19,12,13,14,15,16,17,19,22,24,12,14,16,20,16,17,21,26,16,19,82,47,47,47,47,47,48,48,49,44,45,46,47,40,55,42,39,47,41,37,39,41,60,60,56,56,50,50,50,56,50,50,25,55,19,20,21,22,23,18,20,23,49,13,15,17,21,28,18,22,27,17,20,54,54,54,82,82,55,55,55,49,56,51,48,53,56,43,44,48,42,45,48,42,72,73,60,60,56,56,56,59,56,56,55,57,27,28,29,30,31,26,21,30,57,50,55,18,22,29,19,28,18,21,82,82,82,82,81,81,56,88,57,57,54,85,57,45,49,43,46,80,43,91,79,74,75,60,60,60,63,59,58,58,61,54,53,52,50,61,59,29,31,58,61,56,19,23,20,23,22,94,89,81,92,79,79,78,89,83,46,79,44,47,81,44,84,82,81,84,78,81,63,63,62,56,55,53,51,62,60,57,51,59,62,57,24,23,24,93,88,88,87,86,84,82,80,50,48,82,45,85,83,82,85,79,82,60,59,54,52,66,65,58,54,63,58,25,24,25,93,92,91,90,88,87,81,51,49,83,46,86,93,83,86,80,83,57,54,63,60,59,26,25,93,85,76,50,84,47,87,90,87,84,58,55,64,61,60,27,26,86,77,51,48,88,91,88,85,64,56,62,61,28,27,92,78,78,49,89,92,89,86,67,63,80,79,90,87,67,81,85,94,82,86,83,87,84,88,90,89,91)
par(new=T)
plot(dr2x, dr2y, type="p", ann=F, xlim=c(0, 100), ylim=c(0, 90), col="red2", pch=16, cex=2.3, bg="transparent")
yy <- c(77,76,74,73,72,68,67,66,65,64,63,60,59,58,57,55,54,52,51,50,49,48,47,45,44,43,42,41,40,39,38,37,31,30,29,27,26,23,22,77,74,73,72,67,66,65,59,58,57,55,54,52,51,50,49,45,44,41,39,38,37,31,30,26,22,74,73,72,67,58,54,52,51,50,49,44,39,30,73,51,49,44,73)
yx <- c(54,54,40,39,39,93,89,89,35,35,35,37,37,37,37,35,35,59,60,55,22,22,22,63,63,17,17,11,11,11,65,65,11,11,64,15,15,14,14,55,47,40,46,93,94,89,94,94,94,46,46,60,92,92,55,89,64,17,65,67,67,65,64,16,15,82,46,83,94,95,47,93,93,95,56,88,67,65,47,95,95,89,82)
par(new=T)
plot(yx, yy, type="p", ann=F, xlim=c(0, 100), ylim=c(0, 90), col="chocolate1", pch=16, cex=2.7, bg="transparent")
dry <- c(65,64,63,62,61,60,59,58,57,56,55,54,53,52,51,50,49,48,47,46,45,44,43,42,41,40,39,38,37,36,35,34,33,32,31,30,29,28,27,26,25,24,23,22,21,20,65,64,63,62,61,60,59,58,57,56,55,53,52,51,50,49,48,47,46,45,44,43,42,41,40,39,38,37,36,35,34,33,32,31,30,29,28,27,26,25,24,23,22,21,65,64,63,62,61,60,59,58,57,56,55,53,52,51,50,49,48,47,46,45,44,43,42,40,39,38,37,36,35,34,33,32,31,30,29,28,27,26,25,24,23,22,21,65,64,63,62,61,60,59,58,57,56,55,52,51,50,49,48,47,46,45,44,43,42,40,39,38,37,36,35,34,33,32,31,30,29,28,27,26,25,24,23,22,21,65,64,61,60,59,58,57,56,55,52,51,50,49,48,47,43,42,40,39,37,36,35,34,32,30,29,28,27,26,25,24,23,22,64,61,60,59,58,57,55,52,51,49,48,47,43,42,39,37,36,32,30,29,28,27,26,25,24,23,22,64,61,60,59,58,57,55,52,51,43,42,37,30,29,28,27,26,24,23,22,64,61,60,58,57,55,51,43,42,37,30,29,28,27,23,22,64,60,29,28,27,23,22,28,27,22,28,28,28)
drx <- c(61,60,60,60,52,52,49,49,49,49,50,53,57,55,54,54,53,53,53,55,55,43,42,41,45,33,32,32,32,33,34,34,27,27,45,25,25,26,28,34,33,33,33,33,34,36,62,61,61,61,60,60,60,50,50,50,51,58,56,55,70,54,54,54,71,71,44,43,42,46,34,33,33,33,34,35,35,36,28,46,26,26,27,29,35,34,34,34,34,35,63,62,74,74,61,61,61,61,61,51,52,73,57,56,71,71,71,55,72,72,71,44,44,35,34,45,34,36,36,36,37,49,52,39,27,28,30,38,38,38,39,35,41,72,63,75,75,63,63,62,62,62,63,53,69,70,76,72,72,71,75,75,72,45,45,45,35,46,36,37,37,37,38,50,53,46,39,29,35,39,39,39,40,40,42,73,64,64,64,63,63,63,70,54,70,71,77,77,77,72,69,46,46,45,37,38,44,38,51,47,40,30,38,49,50,40,41,41,71,65,65,73,72,64,55,74,75,78,78,78,70,69,46,38,45,52,48,47,31,39,50,51,50,48,42,72,74,66,74,73,71,56,75,76,71,70,45,53,48,32,49,52,51,49,43,73,75,74,74,72,57,77,72,71,46,54,49,35,50,50,49,74,75,54,38,52,51,50,39,53,51,48,49,50)
par(new=T)
plot(drx, dry, type="p", ann=F, xlim=c(0, 100), ylim=c(0, 90), col="red", pch=16, cex=2, bg="transparent")
ry <- c(34,33,32,34,33,32,31,31,29,25,24,23,22,21,20,19,23,33,30,29,45,44,43,38,37,35,37,36,35,32,30,29,26,25,20,19,18,26,24,24,29,28,23,44,40,39,38,35,31,30,21,30,30,27,26,19,18,19,23,22,30,47,46,46,41,40,36,30,23,22,33,31,28,27,19,18,22,27,31,25,29,43,42,45,35,34,31,29,37,34,33,30,20,19,24,23,31,24,33,31,34,48,47,34,33,30,38,37,36,32,27,24,20,21,20,19,32,33,30,33,47,46,41,40,39,38,34,33,31,25,26,25,33,32,19,31,38,37,42,41,40,39,35,33,32,28,27,23,22,31,30,28,34,39,34,48,42,41,36,34,30,29,29,27,19,34,23,20,24,34,24,23,43,42,41,35,31,31,30,28,20,35,32,30,29,25,39,24,23,44,42,33,32,32,30,29,28,36,33,24,26,25,33,40,44,43,49,44,43,33,31,30,29,30,34,29,31,22,21,33,27,53,49,48,45,44,32,31,32,31,37,19,32,27,27,26,36,25,45,44,45,44,32,42,39,38,35,30,29,27,35,34,36,50,48,47,45,44,43,40,37,36,20,33,22,31,35,34,40,54,51,50,43,42,41,38,31,30,31,30,28,36,43,37,41,46,50,49,41,40,39,32,33,32,34,29,32,36,38,37,28,49,42,41,41,40,33,34,36,35,31,29,37,47,42,41,26,42,41,40,39,37,33,32,30,33,38,43,45,42,51,52,40,39,38,34,33,32,32,38,48,43,34,33,55,51,38,37,36,34,34,33,34,39,44,46,30,27,47,43,46,45,35,35,36,35,39,49,44,46,25,24,50,41,40,39,37,33,32,30,33,38,43,45,42,51,52,40,39,38,34,33,32,32,38,48,43,34,33,55,51,38,37,36,34,34,33,34,39,44,46,30,27,47,43,46,45,35,35,36,35,39,49,44,46,25,24,50,46,45,36,37,41,40,40,45,52,31,44,43,43,46,45,44,42,42,41,50,45,53,26,54,52,53,45,44,43,43,59,51,46,53,33,45,57,56,53,62,61,46,60,52,51,46,56,30,56,44,43,41,63,62,61,58,57,52,57,53,46,58,49,48,44,63,60,59,58,63,58,57,31,57,45,52,51,42,65,64,63,64,62,61,54,47,59,50,52,44,67,66,65,63,57,56,32,58,42,53,55,54,68,67,66,60,54,33,48,60,46,53,55,54,68,67,61,56,50,49,59,43,45,56,52,42,68,60,59,51,61,60,61,50,51,56,45,45,58,56,54,62,63,62,53,46,54,53,46,43,65,64,63,64,55,54,51,52,54,53,44,67,66,65,56,53,52,51,55,57,41,67,66,57,54,53,52,53,55,57,41,67,56,55,54,47,54,56,61,54,46,67,56,55,53,46,57,56,62,54,47,67,55,54,47,55,59,62,55,51,52,56,55,54,56,58,63,63,55,42,69,68,57,59,60,64,57,52,42,70,69,68,61,64,58,56,49,47,70,69,62,65,65,58,53,48,52,70,69,68,66,59,54,50,48,55,69,68,67,62,59,51,50,53,47,67,66,63,60,55,51,49,56,47,63,62,61,56,52,50,52,48,62,61,60,54,53,53,55,48,57,56,55,54,53,56,60,48,57,56,55,54,55,61,51,58,57,55,57,59,52,49,66,59,58,60,62,50,49,67,66,61,63,56,50,66,65,64,62,51,65,64,63,56,57,62,61,57,58,58,62,61,59,59,62,61,60,61,60,59)
rx <- c(24,24,24,25,25,25,25,26,30,30,30,30,30,30,30,30,43,52,52,52,68,68,68,25,25,25,26,26,26,26,30,31,31,31,31,31,31,43,43,48,53,53,53,69,26,26,26,27,27,27,29,31,32,32,32,32,32,39,47,47,50,59,59,68,27,27,27,28,29,29,30,32,33,33,33,33,36,43,48,48,51,66,66,69,28,28,28,29,30,30,31,33,34,34,36,36,39,47,50,50,52,68,68,29,29,29,30,31,31,32,34,35,35,37,37,40,48,51,51,53,69,69,30,30,30,31,32,32,33,35,36,36,39,39,42,49,52,52,58,31,31,31,32,33,33,34,36,37,37,40,40,43,50,53,53,59,32,32,32,33,34,34,35,37,38,39,42,42,44,51,54,54,65,33,33,33,34,35,35,36,38,39,40,43,43,47,52,55,55,66,34,34,34,35,36,36,37,39,40,42,44,44,48,53,58,58,68,35,35,35,36,37,37,38,40,42,43,46,46,49,54,59,59,69,36,36,36,37,38,38,39,41,43,44,47,47,50,55,65,65,37,37,37,38,39,39,40,42,44,46,48,48,51,58,66,66,38,38,38,39,40,40,41,43,45,47,49,49,52,59,68,68,39,39,39,40,41,41,42,44,46,48,50,50,53,65,69,69,40,40,40,41,42,42,43,45,47,49,51,51,54,66,77,77,41,41,41,42,43,43,44,46,48,50,52,52,55,67,42,42,42,43,44,44,45,47,49,51,53,53,58,68,43,43,43,44,45,45,46,48,50,52,54,54,59,69,44,44,44,45,46,46,47,49,51,53,55,55,65,77,45,45,45,46,47,47,48,50,52,54,56,56,66,42,42,42,43,44,44,45,47,49,51,53,53,58,68,43,43,43,44,45,45,46,48,50,52,54,54,59,69,44,44,44,45,46,46,47,49,51,53,55,55,65,77,45,45,45,46,47,47,48,50,52,54,56,56,66,46,46,46,47,48,48,49,51,53,55,57,57,67,47,47,47,48,49,49,50,52,54,56,58,58,68,48,48,48,49,50,50,51,53,55,57,59,59,69,49,49,49,50,51,51,52,54,56,58,61,61,76,50,50,50,51,52,52,53,55,57,59,65,65,77,51,51,51,52,53,53,54,56,58,61,66,66,78,52,52,52,53,54,54,55,57,59,65,67,67,53,53,53,54,55,55,56,58,60,66,68,68,54,54,54,55,56,56,57,59,61,67,69,69,55,55,55,56,57,57,58,60,62,68,71,76,56,56,56,57,58,58,59,61,65,69,76,77,57,57,57,58,59,59,60,62,66,70,77,78,58,58,58,59,60,60,61,65,67,71,78,59,59,59,60,61,61,62,66,68,74,60,60,60,61,62,62,65,67,69,75,61,61,61,62,63,65,66,68,70,76,62,62,62,63,64,66,67,69,71,77,63,63,63,64,65,67,68,70,72,78,64,64,64,65,66,68,69,71,74,65,65,65,66,67,69,70,72,75,66,66,66,67,68,70,71,74,76,67,67,67,68,69,71,72,75,77,68,68,68,69,70,72,73,76,78,69,69,69,70,71,73,74,77,79,70,70,70,71,72,74,75,78,80,71,71,71,72,73,75,76,79,72,72,72,73,74,76,77,80,73,73,73,74,75,77,78,81,74,74,74,75,76,78,79,75,75,75,76,77,79,80,76,76,76,77,78,80,81,77,77,77,78,79,81,78,78,78,79,80,79,79,79,80,81,80,80,80,81,82,81,81,81,82,82,82,82,83,83,83)
par(new=T)
plot(rx, ry, type="p", ann=F, xlim=c(0, 100), ylim=c(0, 90), col="red3", pch=16, cex=2, bg="transparent")
dr3y <- c(59,58,57,56,55,54,53,52,51,50,38,37,36,35,34,33,32,31,30,29,28,59,58,57,56,55,54,53,52,51,50,37,36,35,34,33,32,31,30,29,28,58,57,56,55,54,53,52,51,50,37,36,35,34,33,32,31,30,29,58,57,56,55,54,53,52,51,36,35,34,33,32,31,30,29,57,56,55,54,53,52,51,36,34,33,32,31,30,29,57,56,55,54,53,33,32,31,30,29,56,55,54,53,33,32,31,30,29,56,55,54,33,32,56,55,54,33,32,55,54,33,32,55,54,33,32,55,54,33,32,55,54,33,32,55,54,33,55,54,33,55,54,55,54,55,55)
dr3x <- c(56,57,58,54,60,57,59,58,57,61,49,44,31,32,32,29,34,34,32,29,34,59,59,59,55,61,58,63,62,62,66,47,44,43,39,30,35,37,33,30,37,71,66,56,62,59,66,66,66,75,48,46,45,42,31,36,38,36,31,76,70,57,63,60,68,68,69,50,49,44,32,37,39,38,35,75,58,64,61,72,73,74,51,48,33,38,40,40,37,76,59,65,62,76,39,39,44,41,42,66,66,63,77,41,40,47,45,46,69,67,64,43,41,74,68,65,45,42,69,66,46,43,70,67,47,44,71,70,48,45,72,71,49,46,73,72,50,74,73,51,75,74,76,75,77,78)
par(new=T)
plot(dr3x, dr3y, type="p", ann=F, xlim=c(0, 100), ylim=c(0, 90), col="red4", pch=16, cex=2, bg="transparent")