find = function(v, x){
if(x %in% v){
message("The number ", n_letter(x), " appears ", n_times(sum(v == x)),
", the first occurrence is the ", n_th(which(v==x)[1]), " element.")
} else message("The number ", n_letter(x), " was not found.")
}
v = sample(100, 500, TRUE)
find(v, 6)
Run the code above in your browser using DataLab