Determine the language of a text using letterfrequency
relfreq2[tekst_]:=Table[StringCount[tekst,letters[[i]],IgnoreCase->True]/Total[LetterCounts[tekst,IgnoreCase->True]],{i,1,6}];taal[tekst_]:=Module[{modelN={relfreq2[tekst][[2]],relfreq2[tekst][[6]],relfreq2[tekst][[5]],relfreq2[tekst][[3]],relfreq2[tekst][[4]],relfreq2[tekst][[1]]},modelE={relfreq2[tekst][[5]],relfreq2[tekst][[6]],relfreq2[tekst][[3]],relfreq2[tekst][[2]],relfreq2[tekst][[1]],relfreq2[tekst][[4]]},modelD={relfreq2[tekst][[2]],relfreq2[tekst][[4]],relfreq2[tekst][[5]],relfreq2[tekst][[6]],relfreq2[tekst][[1]],relfreq2[tekst][[3]]},gesorteerd=ReverseSort[relfreq2[tekst]]},If[EditDistance[gesorteerd,modelN]<EditDistance[gesorteerd,modelE],If[EditDistance[gesorteerd,modelN]<EditDistance[gesorteerd,modelD],Print["De tekst is Nederlands."],Print["De tekst is Duits."]],If[EditDistance[gesorteerd,modelE]<EditDistance[gesorteerd,modelD],Print["De tekst is Engels."],Print["De tekst is Duits."]]]]relfreq2[tekst]