diff --git a/FND-STA-Probability_distribution.R b/FND-STA-Probability_distribution.R
index 64257e4..493eab6 100644
--- a/FND-STA-Probability_distribution.R
+++ b/FND-STA-Probability_distribution.R
@@ -605,7 +605,7 @@ fit <- robustbase::nlrob(y ~ dWei(x, th = TH, l = L, k = K),
                                    K = 3),
                          method = "mtl")
 
-points(x, predict(fit), col = "#CC00CC55", lwd = 2, type = "s")
+points(myX, predict(fit), col = "#CC00CC55", lwd = 2, type = "s")
 
 coef(fit)
 #      TH        L        K