Create sf.gibbs.r

## Run Gibbs Sampler for Sap Flux Model