Added function to parse data into data matrix in gibbs.R