R/mystring.bounding.box.R

In StatMethRank: Statistical Methods for Ranking Data

mystring.bounding.box <- function (s) 
{
    s2 <- strsplit(s, "\n")
    rows <- sapply(s2, length)
    columns <- sapply(s2, function(x) max(nchar(x, "w")))
    list(columns = columns, rows = rows)
}