R/create_places.R

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

create_places <-
function(size){
    fa <- rep(0, length(size))
    if(length(size) > 1){
        for(i in 2:length(size)){
            fa[i] <- fa[i - 1] + size[[i - 1]] + size[[i]] + 6}}
    return(fa)
}