R/probmatrix.R

In scalablebayesm: Distributed Markov Chain Monte Carlo for Bayesian Inference in Marketing

#This function helps combine all probdraw we got from stage 1
probmatrix<-function(after_burn_in_data){
  S=length(after_burn_in_data)
  current_matrix<-c()
  for (s in 1:S){
    combined_matrix<-rbind(current_matrix, after_burn_in_data[[s]][["probdraw"]]) 
    current_matrix<-combined_matrix
  }
  return(current_matrix)  
}