# HG changeset patch
# User greg
# Date 1498488949 14400
# Node ID 6aeba53e195b115ca4081e5f1245d9c853b4a486
# Parent  a96e8965762101ab7ddbb101341724fe7dd0ba31
Uploaded

diff -r a96e89657621 -r 6aeba53e195b ks_distribution.R
--- a/ks_distribution.R	Mon Jun 26 10:50:50 2017 -0400
+++ b/ks_distribution.R	Mon Jun 26 10:55:49 2017 -0400
@@ -155,8 +155,11 @@
     {
         for (j in 1:comp)
         {
-           fx[i, j] <- pi[j] * dlnorm(vx[i], meanlog=mu[j], sdlog=(sqrt(var[j])))
-           if (is.nan(fx[i,j])) fx[i,j]<-0
+            fx[i, j] <- pi[j] * dlnorm(vx[i], meanlog=mu[j], sdlog=(sqrt(var[j])))
+            if (is.nan(fx[i,j]))
+            {
+                fx[i,j]<-0
+            }
         }
      }
     return(fx)