Debugged sampler.

Found error: passing alpha and beta parameters as int and not double, cleaned up R and Rcpp code.