--- a/ks_distribution.R	Mon Jun 26 10:21:11 2017 -0400
+++ b/ks_distribution.R	Mon Jun 26 10:28:20 2017 -0400
@@ -184,31 +184,31 @@
 	mu <- items[2]
 	var <- items[3]
 }
-if (number_comp == 2)
+else if (number_comp == 2)
 {
 	pi <- items[1:2]
 	mu <- items[3:4]
 	var <- items[5:6]
 }
-if (number_comp == 3)
+else if (number_comp == 3)
 {
 	pi <- items[1:3]
 	mu <- items[4:6]
 	var <- items[7:9]
 }
-if (number_comp == 4)
+else if (number_comp == 4)
 {
 	pi <- items[1:4]
 	mu <- items[5:8]
 	var <- items[9:12]
 }
-if (number_comp == 5)
+else if (number_comp == 5)
 {
 	pi <- items[1:5]
 	mu <- items[6:10]
 	var <- items[11:15]
 }
-if (number_comp == 6)
+else if (number_comp == 6)
 {
 	pi <- items[1:6]
 	mu <- items[7:12]