Displaying 2 results from an estimated 2 matches for "normedentropy".
2012 Mar 20
1
overriding "summary.default" or "summary.data.frame". How?
...ignif(sumdat, digits)
}
summary.factor <- function(y, numLevels) {
## 5 nested functions to be used later
divr <- function(p=0){
ifelse ( p>0 & p < 1, -p * log2(p), 0)
}
entropy <- function(p){
sum ( divr(p) )
}
maximumEntropy <- function(N) -log2(1/N)
normedEntropy <- function(x) entropy(x)/ maximumEntropy(length(x))
nas <- is.na(y)
y <- factor(y)
ll <- levels(y)
tbl <- table(y)
tt <- c(tbl)
names(tt) <- dimnames(tbl)[[1L]]
o <- sort.list(tt, decreasing = TRUE)
if (length(ll) > numLevels){
toExclude <- numLeve...
2012 Apr 20
1
predictOMatic for regression. Please try and advise me
....203 1.7230 3.7620
NA's 0.0000 0.00000 0.00000 0.0000 0.000 0.0000 0.0000
$factors
xcat1 xcat2
M :50 R :46.000
F :50 M :19.000
NA's : 0 G :19.000
entropy : 1 D :10.000
normedEntropy: 1 P : 6.000
NA's : 0.000
entropy : 2.002
normedEntropy: 0.862
> ## First, overview for values of xcat1
> newdataMaker(m1, fl = list(xcat1 = levels(m1mf$xcat1)))
xcat1 combo y x1...