Conversation
There was a problem hiding this comment.
Any testing needs to be moved to test directory
| dpObj$clusterLabels <- rep(1L, nrow(dpObj$data)) | ||
| } | ||
|
|
||
| if (inherits(dpObj$mixingDistribution, c("normal_inverse_gamma", "normal"))) { |
There was a problem hiding this comment.
Dispatch on the mdObj type, not these if statements
| storeSamples, thinning)) | ||
| } | ||
|
|
||
| if (inherits(dpObj$mixingDistribution, "normalFixedVariance")) { |
There was a problem hiding this comment.
Dispatch on the mdObj type, not these if statements
| storeSamples, thinning)) | ||
| } | ||
|
|
||
| if (inherits(dpObj$mixingDistribution, "exponential")) { |
There was a problem hiding this comment.
Dispatch on the mdObj type, not these if statements
| likelihoodValue <- numeric(2) | ||
| for (k in 1:2) { | ||
| state_params <- params[[states[candiateStates[k]]]] | ||
| if (inherits(mdobj, "normal")) { |
There was a problem hiding this comment.
testing files should be in the test directory
There was a problem hiding this comment.
Tests should be commented rather than this md file
There was a problem hiding this comment.
Where is the standalone code to generate the plots now?
There was a problem hiding this comment.
Edit README.Rmd not the .md
| alphaPost <- priorParameters[1] + length(x[i]) | ||
| betaPost <- priorParameters[2] + sum(x[i]) | ||
| pred[i] <- (gamma(alphaPost)/gamma(priorParameters[1])) * ((priorParameters[2] ^priorParameters[1])/(betaPost^alphaPost)) | ||
| # Corrected line: |
There was a problem hiding this comment.
Follow the file structure
| @@ -1,10 +1,22 @@ | |||
| # dirichletprocess 0.4.2.9000 | |||
| # dirichletprocess 2.0.0 | |||
| Title: Build Dirichlet Process Objects for Bayesian Modelling | ||
| Version: 0.4.2.9000 | ||
| Title: Fit and Extend Dirichlet Process Mixture Models | ||
| Version: 2.1.0 |
| Kees Mulder [ctb] (<https://orcid.org/0000-0002-5387-3812>), | ||
| Giovanni Sighinolfi [ctb], | ||
| Filippo Fiocchi [ctb] | ||
| Maintainer: Gordon J. Ross <gordon.ross@ed.ac.uk> |
| person(given = "Dean", | ||
| family = "Markwick", | ||
| email = "dean.markwick@talk21.com", | ||
| role = "aut"), |
No description provided.