r code for hist and mean median