R/create_links.R

In TTMap: Two-Tier Mapper: a clustering tool based on topological data analysis

create_links <-
function(q, q1, f, f1, m, d, l){
    for(i in seq_len(length(f))){
        s <- rep(0, length(f1))
            for(j in seq_len(length(q[[i]]))){
                for(k in seq_len(length(f1))){
                    if(q[[i]][j] %in% q1[[k]] & s[k] == 0){
                        s[k] <- 1
                        segments3d(rbind(c(f[i], 0, 0), # start
                        c(m + f1[k], d, l)), color = "grey" # 
)}}}}}