diff --git a/cnn2019-accuracy.R b/cnn2019-accuracy.R
index 42109e3..0a2d999 100644
--- a/cnn2019-accuracy.R
+++ b/cnn2019-accuracy.R
@@ -91,3 +91,11 @@
 RMSE <- sqrt(SSE/length(pls.old_predicted))
 
 
+as.data.frame(cbind(predicted = pls.old_predicted, observed = test_data$a)) %>%
+  ggplot(aes(predicted, observed)) +
+    coord_cartesian(xlim = c(20, 30), ylim = c(20, 30)) +
+    geom_point(alpha = 0.1,shape=16) + 
+    geom_smooth(method=lm,se=F) +
+    ggtitle("Accuracy: Predicted vs Actual") +
+    xlab("Predecited") +
+    ylab("Observed")