Mode function for R.