added fake data function in gibbs.R