Revision a7a30ac2a6f34e1d7710938b4547e6b5b702d881 authored by Wayne Zhang on 16 August 2012, 00:00:00 UTC, committed by Gabor Csardi on 16 August 2012, 00:00:00 UTC
1 parent 0aa535d
test_gini.R
if (FALSE){
library(ggplot2)
n <- 100
set.seed(10)
y <- abs(rnorm(n))
P <- abs(rnorm(n))
S <- abs(cbind(rnorm(n), rnorm(n), rnorm(n), rnorm(n), rnorm(n)))
dimnames(S)[[2]] <- c("a", "b", "c", "d", "e")
data = as.data.frame(cbind(y, P, S))
loss <- "y"
score <- c("a", "b", "c")
base = c("P", "c")
x1 <- gini(loss = "y", score = c("a", "b", "c", "d", "e"), base = "P", data = data)
x1
plot(x1)
plot(x1, overlay = FALSE)
x3 <- gini(loss = "y", score = c("b", "c", "d", "e"), base = NULL, data = data)
x3
plot(x3)
plot(x3, overlay = FALSE)
plot(x)
plot(x, overlay = FALSE)
x = ans
digits = 3
plot(x)
}
Computing file changes ...
