Do you want results only for Gibs Sampling for Missing Value in R?