R/distancia1.R

In dprep: Data Pre-Processing and Visualization Functions for Classification

Defines functions distancia1

Documented in distancia1

distancia1 <-
function (x, y) 
{#Manhattan distance
    if (class(y) == "matrix") {
#        print(class(x))
#        print(dim(t(y)))
        distancia = drop(colSums(abs(x - t(y))))
        distancia = t(distancia)
    }
    else distancia = sum(abs(x - y))
    distancia
}

Try the dprep package in your browser