Clean up function orders in bayeslr.R.
Add observe function in inference.R.