value_type1 <- 3
value_type2 <- 17
p1 <- (value_type1/(value_type1+value_type2))
p2 <- (value_type2/(value_type1+value_type2))
Gini_score <- (p1^2 + p2^2)
Gini_score
## [1] 0.745
e1 <- p1 * log2(p1)
e2 <- p2 * log2(p2)
Entropy <- -1 * (e1 + e2)
Entropy
## [1] 0.6098403