Set of (tiny) functions that convert integers into words.
n_times(n)
n_th(n)
n_letter(n)
An integer vector.
It returns a character vector of length one.
n_th()
: Transforms the integer n
to nth
appropiately.
n_letter()
: Transforms small integers to words.
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)
#> The number six appears 7 times, the first occurrence is the 104th element.