R/recluster.expl.R

recluster.expl<-function (dist, clust) {
    mat <- as.vector(dist)
    same <- as.vector(dist(clust))
    beta <- sum(mat, na.rm=T)
    partial <- sum(mat[which(same > 0)], na.rm=T)
    return(partial/beta)
}
leondap/recluster documentation built on Nov. 11, 2024, 7:11 a.m.