R/distmat.R

distmat <- function(vec){
    mat <- as.matrix(dist(vec, diag = T))
    nc <- length(vec)
    for(i in 1:nc){
        mat[i , i:nc] <- NA
    }
    return(mat)
}
Chicago/sdp-feature-fetcher documentation built on May 6, 2019, 10:54 a.m.