add R.apply