data-raw/create_default_dict.R

default_dict <- read.table("./data-raw/sourcedata/words-by-frequency.txt", header = TRUE, stringsAsFactors = FALSE)
N <- nrow(default_dict)
default_dict$cost <- log(1:nrow(default_dict) * log(N))
AndBooth/deconcat documentation built on May 24, 2019, 8:56 a.m.