Displaying 1 result from an estimated 1 matches for "valcol".
Did you mean:
valcom
2005 Jul 07
1
Tables: Invitation to make a collective package
...ines a factor
if (missing(by)) {
logCol <- sapply(df, is.numeric)
for (i in 1:ncol(df)) {
if (logCol[i]) {
x <- as.matrix(df[ ,i])
tbl <- tb.make.table.II(x, k, breaks, right)
tmpList <- c(tmpList, list(tbl))
}
}
valCol <- logCol[logCol]
names(tmpList) <- names(valCol)
return(tmpList)
}
# User defines one factor
else {
namesdf <- names(df)
pos <- which(namesdf == by)
stopifnot(is.factor((df[[pos]])))
numF <- table(df[[pos]])
for(i in 1:length(numF)...