Renamed PriorAlpha_

R/data.R

@@ -170,7 +170,7 @@ Prev = function(data, prev = 'prev', source = 'source', time = 'time')
   Prev_$new(data, prev, source, time)
 
 #' Alpha prior hyperparameter class
-PriorAlpha_ = R6::R6Class('Alpha',
+Alpha_ = R6::R6Class('Alpha',
                     inherit = Data_,
                     private = list(
                       pack = function(data, alpha, source, time, location)