Added RBM clamp functions in R.