R/cantEnc.R

In mknoll/dataAnalysisMisc: Collection of functions for daily tasks

#' @title Cantor Encode
#' @export
encCant <- function(text, off=32, maxLen=25) {
    words <- unlist(strsplit(text, " "))
    out <- c()

    ## TODO: forecah
    rm <- c()
    wrd <- c()
    for (word in words) {
        tryCatch({
            wordR <- rev(strsplit(word, "|")[[1]])
            vals <- sapply(wordR, utf8ToInt)-off
            #max length of words
            if (length(vals) > maxLen) { next } 
            out <- c(out, cant(vals))
            wrd <- c(wrd, word)
        }, error=function(e) { } )
    }

    names(out) <- wrd
    return(out)
}



#' @title Cantor
#' @export 
cant <- function(x) {
    if (length(x) > 2) {
        tmp <- cant(x[-length(x)])
        #print(paste("   ", tmp, " len: ", length(x), " x=", paste(x, collapse="|")))
        return (cant(c(tmp, x[length(x)])))
    } else {
        x0 <- x[1]
        y0 <- x[2]
        return (0.5*(x0+y0)*(x0+y0+1)+y0)
    }
}