R/diginum.R

`diginum` <-
function (res) {
y <- res
digit <- strsplit(as.character(y),".",fixed=TRUE)
c <- sapply(digit, function(x)length(x))
if (sum(c) == length(y)) { dig  <- NULL }
            else {
 list2 <- which(c==2)
 ls <-sapply(list2, function(x)nchar(digit[[x]][[2]]))
 dig <- max(ls)
 }
return (dig )
   }

Try the IsoGeneGUI package in your browser

Any scripts or data that you put into this service are public.

IsoGeneGUI documentation built on May 2, 2018, 4:47 a.m.