Mercurial > repos > greg > ks_distribution
diff ks_distribution.R @ 36:6aeba53e195b draft
Uploaded
| author | greg |
|---|---|
| date | Mon, 26 Jun 2017 10:55:49 -0400 |
| parents | a96e89657621 |
| children | ee4ebdf2935e |
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)