Displaying 1 result from an estimated 1 matches for "ilang".
Did you mean:
clang
1998 Jul 01
1
ordinal(): [was "a handy function ..." in March..]
...ordinal <-
function(i, language =3D "english", gender =3D c("female","male"), sep=3D""=
) {
ii <- i
if(!is.numeric(i) || any(i < 0) || any(ii !=3D (i <- as.integer(i))))
stop("'i' must be non-negative integer")
ilang <- pmatch(language, c("english", "francais", "deutsch",
"italiano", "espanol")) #, "portugues" ?
if(is.na(ilang))
stop(paste("language '", language, "' not (yet) implement...