Remove["Global`*"];

B = {{"Math", 
            1}, {"Hist", 0}, {"CS", 1}, {"Math", 0}, {"Math", 
            0}, {"CS", 1}, {"Hist", 0}, {"Math", 
            1}};

transB  =  Transpose[B];

varAValues  =  
        MDiffElementEST[transB, 1];

    varBValues  =  MDiffElementEST[transB, 2];

probVarA  =  
        DMProbeEST[transB, 1, varAValues];

    probVarB  =  DMProbeEST[transB, 2, varBValues];

condent = 
        DMCondEntropyEST[transB, 2, 1, varAValues, varBValues, 
          probVarA];

IG  =  
        DMEntropyEST[probVarB] - condent;

Print[IG];