Displaying 1 result from an estimated 1 matches for "logcol".
2005 Jul 07
1
Tables: Invitation to make a collective package
...breaks=c('Sturges', 'Scott', 'FD'),
right=FALSE)
{
stopifnot(is.data.frame(df))
tmpList <- list()
nameF <- character()
nameY <- character()
# User didn't defines 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)...