GDS/util_DAGs/hammingDistance.R

In WY-Chen/EqVarDAG: Causal Discovery with Equal Variance Assumption

hammingDistance <- function(G1,G2)
    # hammingDistance(G1,G2)
    #
    # Computes Hamming Distance between DAGs G1 and G2 with SHD(->,<-) = 1!!!!
    #
    # INPUT:  G1, G2     adjacency graph containing only zeros and ones: (i,j)=1 means edge from X_i to X_j.
    #         
    # OUTPUT: hammingDis Hamming Distance between G1 and G2
    #
    # Copyright (c) 2012-2013  Jonas Peters [peters@stat.math.ethz.ch]
    # All rights reserved.  See the file COPYING for license terms.
{
    allMistakesOne <- FALSE
    if(allMistakesOne)
    {
        Gtmp <- (G1+G2)%%2
        Gtmp <- Gtmp + t(Gtmp)
        nrReversals <- sum(Gtmp == 2)/2
        nrInclDel <- sum(Gtmp == 1)/2
        hammingDis <- nrReversals + nrInclDel
    } else
    {        
        hammingDis <- sum(abs(G1 - G2))
        # correction: dist(-,.) = 1, not 2
        hammingDis <- hammingDis - 0.5*sum(G1 * t(G1) * (1-G2) * t(1-G2) + G2 * t(G2) * (1-G1) * t(1-G1))
    }    
    return(hammingDis)
}