Nothing
`text2spc.fnc` <-
function(text) {
if (!requireNamespace("zipfR", quietly = TRUE)) {
stop("please install the zipfR library first")
} else {
tab = table(table(text))
return(zipfR::spc(m = as.numeric(names(tab)), Vm = as.numeric(tab)))
}
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.