tilesleft=function(tiles,language="dutch"){
table(rep(tiles.list[[language]]$tiles,tiles.list[[language]]$counts))-
table(factor(unlist(strsplit(tiles,split="")),
levels=names(table(rep(tiles.list[[language]]$tiles,tiles.list[[language]]$counts)))))}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.