This is the section where the values for each type are entered. After both values are entered, please hit run.

value_type1 <- 3
value_type2 <- 17

The Gini Score

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

Entropy

e1 <- p1 * log2(p1)
e2 <- p2 * log2(p2)
Entropy <- -1 * (e1 + e2)
Entropy
## [1] 0.6098403