Displaying 1 result from an estimated 1 matches for "namesdf".
Did you mean:
namesd2
2005 Jul 07
1
Tables: Invitation to make a collective package
...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)) {
tmpdf <- subset(df, df[[pos]] == names(numF[i]))
logCol <- sapply(tmpdf, is.numeric)
for (j in 1:ncol(tmpdf)...