Added 'array' to S3 class list in posterior.

R/posterior.R

@@ -26,12 +26,15 @@ Posterior_HaldDP = R6::R6Class(
           'iter' = 1:n_iter
         )
       )
+      class(self$alpha) = append(class(self$alpha), 'array')
       self$q = to.tensor(NA,
                          dim = list('type' = namesTypes,
                                     'iter' = 1:n_iter))
+      class(self$q) = append(class(self$q), 'array')
       self$s = to.tensor(NA,
                          dim = list('type' = namesTypes,
                                     'iter' = 1:n_iter))
+      class(self$s) = append(class(self$s), 'array')
       self$r = to.tensor(
         NA,
         dim = list(
@@ -41,6 +44,7 @@ Posterior_HaldDP = R6::R6Class(
           'iter' = 1:n_iter
         )
       )
+      class(self$r) = append(class(self$r), 'array')
     },
     sample = function(model) {
       # Extend the posterior if we need to