Update MhParameterProposal function

dm13450 · Mar 8, 2023 · 3cf8554 · 3cf8554
1 parent b920f85
commit 3cf8554
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/R/cluster_label_predict.R b/R/cluster_label_predict.R
@@ -58,8 +58,8 @@ ClusterLabelPredict.conjugate <- function(dpobj, newData) {
 
       for (j in seq_along(clusterParams)) {
         clusterParams[[j]] <- array(c(clusterParams[[j]], post_draw[[j]]),
-          dim = c(dim(post_draw[[j]])[1:2], dim(clusterParams[[j]])[3] +
-          1))
+          dim = c(dim(post_draw[[j]])[1:2],
+                  dim(clusterParams[[j]])[3] + 1))
       }
 
 

diff --git a/R/mixing_distribution.R b/R/mixing_distribution.R
@@ -21,6 +21,6 @@ MixingDistribution <- function(distribution, priorParameters, conjugate, mhStepS
   return(mdObj)
 }
 
-MhParameterProposal <- function(MixingDistribution, old_params){
-  UseMethod("MhParameterProposal",MixingDistribution)
+MhParameterProposal <- function(mdObj, old_params){
+  UseMethod("MhParameterProposal", mdObj)
 }