R/create_places.R

Defines functions create_places

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)
}

Try the TTMap package in your browser

Any scripts or data that you put into this service are public.

TTMap documentation built on Nov. 8, 2020, 7:30 p.m.