gain <- function(database, attribute)
{
wynik_d<- unique(database$attribute)
n<- length(which(wynik_d[1] == database$attribute))
p<- length(which(wynik_d[2] == database$attribute))
w<- -(p/(p+n))*log2(p/(p+n))-(n/(p+n))*log2(n/(p+n))
return(w)
}
#database to baza juz wczytana, ktora jest zaladowana
#attribute to nazwa kolumny, ktora podaje w " "