Displaying 1 result from an estimated 1 matches for "cplensd".
Did you mean:
cplens
2012 Dec 17
2
Suggestion: 'method' slot for format.ftable()
...("'x' must be an \"ftable\" object")
charQuote <- function(s)
if(quote) paste0("\"", s, "\"") else s
makeLabels <- function(lst) {
lens <- sapply(lst, length)
cplensU <- c(1, cumprod(lens))
cplensD <- rev(c(1, cumprod(rev(lens))))
y <- NULL
for (i in rev(seq_along(lst))) {
ind <- 1 + seq.int(from = 0, to = lens[i] - 1) * cplensD[i + 1]
tmp <- character(length = cplensD[i])
tmp[ind] <- charQuote(lst[[i]])
y <- cb...