visualization of slice sampling in R