Update MSM Binom due to errors in the plot

MSMpdfbinomial/MSMpdfbinomial.R

@@ -1,17 +1,12 @@
-
-# clear history
-rm(list = ls(all = TRUE))
-graphics.off()
-
 # Plot the PDF
 y1 = dbinom(0:20, 20, 0.1)
 y2 = dbinom(0:20, 20, 0.5)
 y3 = dbinom(0:20, 20, 0.8)
 
-plot(y1, col = "blue", type = "h", lwd = 2.5, ylab = "", xlab = "")
-points(y1, col = "blue", type = "p", pch = 20, lwd = 0.1, ylim = c(0, 0.3))
-lines(y2, col = "darkolivegreen4", type = "h", lwd = 2.5, ylab = "", xlab = "")
-points(y2, col = "darkolivegreen4", type = "p", pch = 20, lwd = 0.1, ylim = c(0, 
-    0.3))
-lines(y3, col = "chocolate4", type = "h", lwd = 2.5, ylab = "", xlab = "")
-points(y3, col = "chocolate4", type = "p", pch = 20, lwd = 0.1, ylim = c(0, 0.3)) 
+plot(y1~c(0:20), col = "blue", type = "h", lwd = 2.5, ylab = "", xlab = "")
+points(y1~c(0:20), col = "blue", type = "p", pch = 20, lwd = 0.1, ylim = c(0, 0.3))
+lines(y2~c(0:20), col = "darkolivegreen4", type = "h", lwd = 2.5, ylab = "", xlab = "")
+points(y2~c(0:20), col = "darkolivegreen4", type = "p", pch = 20, lwd = 0.1, ylim = c(0, 
+                                                                              0.3))
+lines(y3~c(0:20), col = "chocolate4", type = "h", lwd = 2.5, ylab = "", xlab = "")
+points(y3~c(0:20), col = "chocolate4", type = "p", pch = 20, lwd = 0.1, ylim = c(0, 0.3)) 

MSMpdfbinomial/Metainfo.txt

@@ -24,6 +24,6 @@ See also :
 
 Author : Xiu Xu
 
-Submitted : Thu, November 5 2015 by Chen Huang
+Submitted : Wed, January 16, 2019, Daniel Jacob
 
 Example : Plot of the PDF of binomial distribution.