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))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.