Mercurial > repos > greg > ks_distribution

changeset 36:6aeba53e195b draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author greg
date Mon, 26 Jun 2017 10:55:49 -0400
parents a96e89657621
children ee4ebdf2935e
files ks_distribution.R
diffstat 1 files changed, 5 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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)